From dfad62402802bd65367292f328cfdeef489e97db Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Mar 2015 19:00:39 -0400 Subject: [PATCH] Increase TCP listen connection backlog from 4 to 128, to avoid TCP timeouts when the queue builds up. --- prospect/drivers/tcp.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prospect/drivers/tcp.rkt b/prospect/drivers/tcp.rkt index 191d81d..fdc109c 100644 --- a/prospect/drivers/tcp.rkt +++ b/prospect/drivers/tcp.rkt @@ -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