From 689d410bdad6e416aee86e60951e2b015268efb0 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 14 Mar 2017 18:06:02 -0400 Subject: [PATCH] Rearrange chat-simplified-internals2.rkt --- .../examples/actor/chat-simplified-internals2.rkt | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/racket/syndicate/examples/actor/chat-simplified-internals2.rkt b/racket/syndicate/examples/actor/chat-simplified-internals2.rkt index f532937..2c30e4b 100644 --- a/racket/syndicate/examples/actor/chat-simplified-internals2.rkt +++ b/racket/syndicate/examples/actor/chat-simplified-internals2.rkt @@ -35,13 +35,12 @@ (spawn #:name 'chat-server (during/spawn (tcp-connection $id (tcp-listener 5999)) (assert (tcp-accepted id)) - (define me (gensym 'user)) ;; a random user name - (assert (present me)) + (let ((me (gensym 'user))) + (assert (present me)) + (on (message (tcp-in id $line)) + (send! (speak me line)))) (during (present $user) (on-start (send! (tcp-out id (~a user " arrived")))) - (on-stop (send! (tcp-out id (~a user " left"))))) - (on (message (speak $user $text)) - (send! (tcp-out id (~a user " says '" text "'")))) - (on (message (tcp-in id $line)) - (send! (speak me line))))) - + (on-stop (send! (tcp-out id (~a user " left")))) + (on (message (speak user $text)) + (send! (tcp-out id (~a user " says '" text "'")))))))