Presentational tweaks.
This commit is contained in:
parent
8788d237f7
commit
55c35a4f04
|
@ -7,7 +7,8 @@
|
||||||
(require "fake-tcp.rkt")
|
(require "fake-tcp.rkt")
|
||||||
|
|
||||||
(define (term->bytes v)
|
(define (term->bytes v)
|
||||||
(with-output-to-bytes (lambda () (write v) (newline))))
|
(with-output-to-bytes
|
||||||
|
(lambda () (write v) (newline))))
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
@ -63,7 +64,6 @@
|
||||||
[msg (at-meta-level
|
[msg (at-meta-level
|
||||||
(cout (term->bytes msg)))])))
|
(cout (term->bytes msg)))])))
|
||||||
|
|
||||||
(ground-vm
|
(ground-vm (spawn tcp-driver)
|
||||||
(spawn tcp-driver)
|
(spawn listener))
|
||||||
(spawn listener))
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
Loading…
Reference in New Issue