From 8788d237f75a2ba259b115f32068a715589d7d4a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 8 Aug 2012 18:23:50 -0400 Subject: [PATCH] More cosmetic tweaks --- chat-os2-paper.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/chat-os2-paper.rkt b/chat-os2-paper.rkt index 10fa876..25aec45 100644 --- a/chat-os2-paper.rkt +++ b/chat-os2-paper.rkt @@ -37,12 +37,12 @@ (cin (tcp-credit 1)) (role out-t) (role in-t - #:on-absence (kill) - [(tcp-channel _ _ (? bytes? line)) - (list (at-meta-level - (cin (tcp-credit 1))) - (send-message - `(,me says ,line)))]))) + #:on-absence (kill) + [(tcp-channel _ _ (? bytes? line)) + (list (at-meta-level + (cin (tcp-credit 1))) + (send-message + `(,me says ,line)))]))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (chat-roles me cout)