From c90c16ab4b5c64f06ca81ca35522c9846e6f9897 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Mar 2015 19:04:03 -0400 Subject: [PATCH] Increase TCP listen connection backlog, for parity with prospect TCP driver --- plain-racket-server.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plain-racket-server.rkt b/plain-racket-server.rkt index a0eda01..c50f231 100644 --- a/plain-racket-server.rkt +++ b/plain-racket-server.rkt @@ -62,7 +62,7 @@ (loop)]))))) (define (listener port-number) - (define s (tcp-listen port-number 4 #t)) + (define s (tcp-listen port-number 128 #t)) (let loop () (define-values (in out) (tcp-accept s)) (connection in out)