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