Cope with a wider range of end-of-file-style situations.

This commit is contained in:
Tony Garnock-Jones 2012-07-16 17:16:34 -04:00
parent de5e83f414
commit 8f897119a9
1 changed files with 1 additions and 1 deletions

View File

@ -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)))]))