Refine output of tf.rkt
This commit is contained in:
parent
a86478b7b9
commit
dabc74976a
|
@ -135,8 +135,8 @@
|
||||||
|
|
||||||
(define (relay node1 node2)
|
(define (relay node1 node2)
|
||||||
(spawn #:name (list 'relay node1 node2)
|
(spawn #:name (list 'relay node1 node2)
|
||||||
(define node1-connid (string->symbol (format "~a->~a" node1 node2)))
|
(define node1-connid (string->symbol (format "~a(~a)" node1 node2)))
|
||||||
(define node2-connid (string->symbol (format "~a->~a" node2 node1)))
|
(define node2-connid (string->symbol (format "~a(~a)" node2 node1)))
|
||||||
(field [pending1 '()]
|
(field [pending1 '()]
|
||||||
[pending2 '()])
|
[pending2 '()])
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue