More cosmetic tweaks
This commit is contained in:
parent
fc463db770
commit
8788d237f7
|
@ -37,12 +37,12 @@
|
|||
(cin (tcp-credit 1))
|
||||
(role out-t)
|
||||
(role in-t
|
||||
#:on-absence (kill)
|
||||
[(tcp-channel _ _ (? bytes? line))
|
||||
(list (at-meta-level
|
||||
(cin (tcp-credit 1)))
|
||||
(send-message
|
||||
`(,me says ,line)))])))
|
||||
#:on-absence (kill)
|
||||
[(tcp-channel _ _ (? bytes? line))
|
||||
(list (at-meta-level
|
||||
(cin (tcp-credit 1)))
|
||||
(send-message
|
||||
`(,me says ,line)))])))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
(define (chat-roles me cout)
|
||||
|
|
Loading…
Reference in New Issue