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

Fix echo-server-imperative-syndicate-tcp-driver.rkt

This commit is contained in:
Tony Garnock-Jones 2019-06-21 14:40:38 +01:00
parent 4c593986c3
commit ac46f5cdba
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
echo-server-imperative-syndicate-tcp-driver.rkt
View File

@ -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