Presentational tweaks.

chat-os2-paper.rkt

@@ -7,7 +7,8 @@
 (require "fake-tcp.rkt")
 
 (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
 	  (cout (term->bytes msg)))])))
 
-(ground-vm
- (spawn tcp-driver)
- (spawn listener))
+(ground-vm (spawn tcp-driver)
+	   (spawn listener))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;