syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Refine output of tf.rkt

This commit is contained in:
Tony Garnock-Jones 2019-05-04 22:48:37 +01:00
parent a86478b7b9
commit dabc74976a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
syndicate/broker/tf.rkt
View File

@ -135,8 +135,8 @@
(define (relay node1 node2)
(spawn #:name (list 'relay node1 node2)
(define node1-connid (string->symbol (format "~a->~a" node1 node2)))
(define node2-connid (string->symbol (format "~a->~a" node2 node1)))
(define node1-connid (string->symbol (format "~a(~a)" node1 node2)))
(define node2-connid (string->symbol (format "~a(~a)" node2 node1)))
(field [pending1 '()]
[pending2 '()])