From 8f897119a92bb80b621b21dd7e9a58620141eb9a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 16 Jul 2012 17:16:34 -0400 Subject: [PATCH] Cope with a wider range of end-of-file-style situations. --- chat-os2.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chat-os2.rkt b/chat-os2.rkt index 437a954..de1b64a 100644 --- a/chat-os2.rkt +++ b/chat-os2.rkt @@ -25,7 +25,7 @@ (at-meta-level (cin (tcp-credit 1))) (at-meta-level (role/anon out-topic)) (at-meta-level (role/anon in-topic - [(tcp-channel _ _ (? eof-object?)) (kill)] + #:on-absence (kill) [(tcp-channel _ _ (? bytes? line)) (list (at-meta-level (cin (tcp-credit 1))) (send-message `(,connection-id says ,line)))]))