Browse Source

Clean up whitespace

main
Tony Garnock-Jones 6 years ago
parent
commit
a7503d16e4
  1. 2
      minimart/examples/chat-actor.rkt

2
minimart/examples/chat-actor.rkt

@ -18,7 +18,7 @@
(advertise (tcp-channel us them ?) #:meta-level 1)
(subscribe `(,($ who) says ,($ what))
(say who "says: ~a" what))
(advertise `(,user says ,?))
(subscribe (tcp-channel them us ($ bs)) #:meta-level 1
(send `(,user says ,(string-trim (bytes->string/utf-8 bs)))))

Loading…
Cancel
Save