Increase TCP listen connection backlog from 4 to 128, to avoid TCP timeouts when the queue builds up.

This commit is contained in:
Tony Garnock-Jones 2015-03-18 19:00:39 -04:00
parent 77736e75a1
commit dfad624028
1 changed files with 1 additions and 1 deletions

View File

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