Smaller font so slightly more width
This commit is contained in:
parent
ddfa96d685
commit
8576a051a0
|
@ -11,7 +11,7 @@
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
(define listener
|
(define listener
|
||||||
(nested-vm
|
(nested-vm
|
||||||
(at-meta-level
|
(at-meta-level
|
||||||
|
@ -30,7 +30,7 @@
|
||||||
(net-roles me
|
(net-roles me
|
||||||
cin cout
|
cin cout
|
||||||
in-topic out-topic)))
|
in-topic out-topic)))
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(define (chat-roles me cout)
|
(define (chat-roles me cout)
|
||||||
(define (announce t did-what)
|
(define (announce t did-what)
|
||||||
|
@ -50,7 +50,7 @@
|
||||||
[msg (at-meta-level
|
[msg (at-meta-level
|
||||||
(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)
|
||||||
|
@ -70,4 +70,4 @@
|
||||||
(ground-vm
|
(ground-vm
|
||||||
(spawn tcp-driver)
|
(spawn tcp-driver)
|
||||||
(spawn listener))
|
(spawn listener))
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
Loading…
Reference in New Issue