syndicate-lang
/
minimart-benchmark-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Increase TCP listen connection backlog, for parity with prospect TCP driver

This commit is contained in:
Tony Garnock-Jones 2015-03-18 19:04:03 -04:00
parent e2614c7b94
commit c90c16ab4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plain-racket-server.rkt
View File

@ -62,7 +62,7 @@
(loop)]))))) (loop)])))))
(define (listener port-number) (define (listener port-number)
(define s (tcp-listen port-number 4 #t)) (define s (tcp-listen port-number 128 #t))
(let loop () (let loop ()
(define-values (in out) (tcp-accept s)) (define-values (in out) (tcp-accept s))
(connection in out) (connection in out)