Clean up whitespace
This commit is contained in:
parent
5280f1eb5c
commit
a7503d16e4
|
@ -18,7 +18,7 @@
|
||||||
(advertise (tcp-channel us them ?) #:meta-level 1)
|
(advertise (tcp-channel us them ?) #:meta-level 1)
|
||||||
(subscribe `(,($ who) says ,($ what))
|
(subscribe `(,($ who) says ,($ what))
|
||||||
(say who "says: ~a" what))
|
(say who "says: ~a" what))
|
||||||
|
|
||||||
(advertise `(,user says ,?))
|
(advertise `(,user says ,?))
|
||||||
(subscribe (tcp-channel them us ($ bs)) #:meta-level 1
|
(subscribe (tcp-channel them us ($ bs)) #:meta-level 1
|
||||||
(send `(,user says ,(string-trim (bytes->string/utf-8 bs)))))
|
(send `(,user says ,(string-trim (bytes->string/utf-8 bs)))))
|
||||||
|
|
Loading…
Reference in New Issue