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

Cosmetic

This commit is contained in:
Tony Garnock-Jones 2012-08-08 16:46:28 -04:00
parent 8576a051a0
commit e7a630c6e9
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
chat-os2-paper.rkt
View File

@ -26,10 +26,9 @@
(cin cout in-topic out-topic)
(tcp-accept t))
(transition 'no-state
(chat-roles me cout)
(net-roles me
cin cout
in-topic out-topic)))
(net-roles me cin cout
in-topic out-topic)
(chat-roles me cout)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (chat-roles me cout)
@ -51,8 +50,7 @@
(cout (term->bytes msg)))])))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (net-roles me
cin cout
(define (net-roles me cin cout
in-topic out-topic)
(at-meta-level
(cout (term->bytes `(you-are ,me)))