From ac46f5cdba4a2949cede39729e2aeb04e8886caa Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 21 Jun 2019 14:40:38 +0100 Subject: [PATCH] Fix echo-server-imperative-syndicate-tcp-driver.rkt --- echo-server-imperative-syndicate-tcp-driver.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/echo-server-imperative-syndicate-tcp-driver.rkt b/echo-server-imperative-syndicate-tcp-driver.rkt index ec32c41..76b4e49 100644 --- a/echo-server-imperative-syndicate-tcp-driver.rkt +++ b/echo-server-imperative-syndicate-tcp-driver.rkt @@ -11,7 +11,7 @@ (define server-entry-name #f) (define server-entry-type #f) - (command-line #:program "echo-server-prospect-tcp-driver.rkt" + (command-line #:program "echo-server-imperative-syndicate-tcp-driver.rkt" #:once-each ["--logbook-entry-name" name "set logbook entry name to use when recording run statistics" @@ -53,6 +53,8 @@ #:name (list 'connection id) (assert (tcp-accepted id)) (on-start + (issue-credit! (tcp-listener port-number)) + (issue-unbounded-credit! tcp-in id) (set! connection-count (+ connection-count 1)) (set! first-connection-seen? #t)) (on-stop