Fix echo-server-imperative-syndicate-tcp-driver.rkt
This commit is contained in:
parent
4c593986c3
commit
ac46f5cdba
|
@ -11,7 +11,7 @@
|
||||||
(define server-entry-name #f)
|
(define server-entry-name #f)
|
||||||
(define server-entry-type #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
|
#:once-each
|
||||||
["--logbook-entry-name" name
|
["--logbook-entry-name" name
|
||||||
"set logbook entry name to use when recording run statistics"
|
"set logbook entry name to use when recording run statistics"
|
||||||
|
@ -53,6 +53,8 @@
|
||||||
#:name (list 'connection id)
|
#:name (list 'connection id)
|
||||||
(assert (tcp-accepted id))
|
(assert (tcp-accepted id))
|
||||||
(on-start
|
(on-start
|
||||||
|
(issue-credit! (tcp-listener port-number))
|
||||||
|
(issue-unbounded-credit! tcp-in id)
|
||||||
(set! connection-count (+ connection-count 1))
|
(set! connection-count (+ connection-count 1))
|
||||||
(set! first-connection-seen? #t))
|
(set! first-connection-seen? #t))
|
||||||
(on-stop
|
(on-stop
|
||||||
|
|
Loading…
Reference in New Issue