From 7858b3aee1eb1ba50e7e76edcf36274468e1d197 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Mar 2015 19:04:46 -0400 Subject: [PATCH] Increase TCP listen connection backlog to 128, to avoid TCP timeouts --- minimart/drivers/tcp.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/minimart/drivers/tcp.rkt b/minimart/drivers/tcp.rkt index 7ccf910..912b5f2 100644 --- a/minimart/drivers/tcp.rkt +++ b/minimart/drivers/tcp.rkt @@ -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