From 55c35a4f04cd3111f119ff558b5cd41cbb72c563 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 30 Jul 2012 13:36:58 -0400 Subject: [PATCH] Presentational tweaks. --- chat-os2-paper.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/chat-os2-paper.rkt b/chat-os2-paper.rkt index 25aec45..3f2b71a 100644 --- a/chat-os2-paper.rkt +++ b/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)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;