Cope with a wider range of end-of-file-style situations.
This commit is contained in:
parent
de5e83f414
commit
8f897119a9
|
@ -25,7 +25,7 @@
|
||||||
(at-meta-level (cin (tcp-credit 1)))
|
(at-meta-level (cin (tcp-credit 1)))
|
||||||
(at-meta-level (role/anon out-topic))
|
(at-meta-level (role/anon out-topic))
|
||||||
(at-meta-level (role/anon in-topic
|
(at-meta-level (role/anon in-topic
|
||||||
[(tcp-channel _ _ (? eof-object?)) (kill)]
|
#:on-absence (kill)
|
||||||
[(tcp-channel _ _ (? bytes? line))
|
[(tcp-channel _ _ (? bytes? line))
|
||||||
(list (at-meta-level (cin (tcp-credit 1)))
|
(list (at-meta-level (cin (tcp-credit 1)))
|
||||||
(send-message `(,connection-id says ,line)))]))
|
(send-message `(,connection-id says ,line)))]))
|
||||||
|
|
Loading…
Reference in New Issue