syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More cosmetic tweaks

This commit is contained in:
Tony Garnock-Jones 2012-08-08 18:23:50 -04:00
parent fc463db770
commit 8788d237f7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
chat-os2-paper.rkt
View File

@ -37,12 +37,12 @@
(cin (tcp-credit 1)) (cin (tcp-credit 1))
(role out-t) (role out-t)
(role in-t (role in-t
#:on-absence (kill) #:on-absence (kill)
[(tcp-channel _ _ (? bytes? line)) [(tcp-channel _ _ (? bytes? line))
(list (at-meta-level (list (at-meta-level
(cin (tcp-credit 1))) (cin (tcp-credit 1)))
(send-message (send-message
`(,me says ,line)))]))) `(,me says ,line)))])))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (chat-roles me cout) (define (chat-roles me cout)