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

Add missing rising-edge wrapper

This commit is contained in:
Tony Garnock-Jones 2015-12-09 16:17:57 +13:00
parent 4b0d800b5f
commit c05393aa2e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/chat-client.rkt.txt
View File

@ -8,7 +8,7 @@
(spawn-tcp-driver)
(actor (define e (read-bytes-line-evt (current-input-port) 'any))
(until quit?
(until (rising-edge quit?)
#:collect [quit? #f]
(assert (advertise (tcp-channel local-handle remote-handle ?)))
(on (retracted (advertise (tcp-channel remote-handle local-handle ?))) #t)