Adjust TCP listen backlog for non-TCP-driver minimart variant, too.
This commit is contained in:
parent
a18fdd959a
commit
04f1b54ac3
|
@ -58,7 +58,7 @@
|
||||||
(transition s (connection in out))]
|
(transition s (connection in out))]
|
||||||
[_ #f]))
|
[_ #f]))
|
||||||
#f
|
#f
|
||||||
(sub (event (tcp-accept-evt (tcp-listen port-number 4 #t)) ?)
|
(sub (event (tcp-accept-evt (tcp-listen port-number 128 #t)) ?)
|
||||||
#:meta-level 1)))
|
#:meta-level 1)))
|
||||||
|
|
||||||
(define (connection in out)
|
(define (connection in out)
|
||||||
|
|
Loading…
Reference in New Issue