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