From e7a630c6e95819ab055b55035d23178dc6847865 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 8 Aug 2012 16:46:28 -0400 Subject: [PATCH] Cosmetic --- chat-os2-paper.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/chat-os2-paper.rkt b/chat-os2-paper.rkt index b525d0b..4ea8c23 100644 --- a/chat-os2-paper.rkt +++ b/chat-os2-paper.rkt @@ -26,10 +26,9 @@ (cin cout in-topic out-topic) (tcp-accept t)) (transition 'no-state - (chat-roles me cout) - (net-roles me - cin cout - in-topic out-topic))) + (net-roles me cin cout + in-topic out-topic) + (chat-roles me cout))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (chat-roles me cout) @@ -51,8 +50,7 @@ (cout (term->bytes msg)))]))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define (net-roles me - cin cout +(define (net-roles me cin cout in-topic out-topic) (at-meta-level (cout (term->bytes `(you-are ,me)))