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

Correct typo: 5000 should be 5999

This commit is contained in:
Tony Garnock-Jones 2016-01-08 12:22:11 -05:00
parent 32ff49a814
commit a978731c55
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
prospect/examples/actor/chat.rkt
View File

@ -37,7 +37,7 @@
(actor-body->spawn-action (actor-body->spawn-action
(lambda () (lambda ()
(perform-core-action! (spawn-tcp-driver)) (perform-core-action! (spawn-tcp-driver))
(network (define us (tcp-listener 5000)) (network (define us (tcp-listener 5999))
(until (message (shutdown)) (until (message (shutdown))
(assert (advertise (observe (tcp-channel _ us _))) #:meta-level 1) (assert (advertise (observe (tcp-channel _ us _))) #:meta-level 1)
(on (asserted (advertise (tcp-channel $them us _)) #:meta-level 1) (on (asserted (advertise (tcp-channel $them us _)) #:meta-level 1)