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

Smaller font so slightly more width

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

8
chat-os2-paper.rkt
View File

@ -11,7 +11,7 @@
;;---------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define listener
(nested-vm
(at-meta-level
@ -30,7 +30,7 @@
(net-roles me
cin cout
in-topic out-topic)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (chat-roles me cout)
(define (announce t did-what)
@ -50,7 +50,7 @@
[msg (at-meta-level
(cout (term->bytes msg)))])))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (net-roles me
cin cout
in-topic out-topic)
@ -70,4 +70,4 @@
(ground-vm
(spawn tcp-driver)
(spawn listener))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;