syndicate-lang
/
marketplace-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Untabify

This commit is contained in:
Tony Garnock-Jones 2013-06-02 16:45:25 -04:00
parent 0b6aaaa6f1
commit b1438317aa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
marketplace/examples/chat-paper-extrasugar.rkt
View File

@ -24,7 +24,7 @@
(on-absence (quit))
(on-message
[(tcp-channel _ _ (? bytes? text))
(send-message `(,user says ,text))])))))
(send-message `(,user says ,text))])))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (speak-to-user user them us)
@ -44,4 +44,4 @@
(on-presence (announce who 'arrived))
(on-absence (announce who 'departed))
(on-message [`(,who says ,what)
(say "~a: ~a" who what)])))))
(say "~a: ~a" who what)])))))