From a978731c55834f9a1cc7c48cfa91940e63d48bb1 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 8 Jan 2016 12:22:11 -0500 Subject: [PATCH] Correct typo: 5000 should be 5999 --- prospect/examples/actor/chat.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prospect/examples/actor/chat.rkt b/prospect/examples/actor/chat.rkt index b44d6fa..0285f53 100644 --- a/prospect/examples/actor/chat.rkt +++ b/prospect/examples/actor/chat.rkt @@ -37,7 +37,7 @@ (actor-body->spawn-action (lambda () (perform-core-action! (spawn-tcp-driver)) - (network (define us (tcp-listener 5000)) + (network (define us (tcp-listener 5999)) (until (message (shutdown)) (assert (advertise (observe (tcp-channel _ us _))) #:meta-level 1) (on (asserted (advertise (tcp-channel $them us _)) #:meta-level 1)