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

Bounce relay

This commit is contained in:
Tony Garnock-Jones 2019-05-03 11:20:22 +01:00
parent ed7cf375ad
commit 508e37171d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/broker/tf.rkt
View File

@ -140,6 +140,8 @@
(field [pending1 '()]
[pending2 '()])
(stop-when (message (terminate (list 'relay node1 node2))))
(during (router-connection node1 node1-connid)
(on (message (router-outbound node1-connid $body))
(pending1 (cons body (pending1)))))
@ -181,6 +183,9 @@
(pause 1 (send! (change-presence 'c1 #f)))
(pause 0.2 (send! (change-presence 'c1 #t)))
(pause 0.4 (send! (terminate (list 'relay 'n1 'n2))))
(pause 0.4 (relay 'n1 'n2))
(pause 0.2 (send! (terminate 'c1)))
(pause 0.2 (send! (terminate 'c3)))
(pause 0.2 (send! (terminate 'c2)))