Increase TCP listen connection backlog from 4 to 128, to avoid TCP timeouts when the queue builds up.
This commit is contained in:
parent
77736e75a1
commit
dfad624028
|
@ -85,7 +85,7 @@
|
|||
|
||||
(define (spawn-tcp-listener server-addr)
|
||||
(match-define (tcp-listener port) server-addr)
|
||||
(define listener (tcp:tcp-listen port 4 #t))
|
||||
(define listener (tcp:tcp-listen port 128 #t))
|
||||
(define control-ch (make-channel))
|
||||
(thread (lambda () (tcp-listener-thread control-ch listener server-addr)))
|
||||
(spawn tcp-listener-behavior
|
||||
|
|
Loading…
Reference in New Issue