Increase TCP listen connection backlog to 128, to avoid TCP timeouts
This commit is contained in:
parent
d031b60995
commit
7858b3aee1
|
@ -89,7 +89,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