~ chicken-core (chicken-5) 45c040f0a352c6f4b4431788aef1d0357c6ede6f

commit 45c040f0a352c6f4b4431788aef1d0357c6ede6f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 6 08:04:37 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 6 08:04:37 2011 +0200

    increased default backlog for tcp-listen (as suggested by sjamaan)

diff --git a/manual/Unit tcp b/manual/Unit tcp
index cb6bfd31..bd20c855 100644
--- a/manual/Unit tcp	
+++ b/manual/Unit tcp	
@@ -19,7 +19,7 @@ of kind {{(exn i/o network)}}.
 
 Creates and returns a TCP listener object that listens for connections on {{TCPPORT}}, which
 should be an exact integer. {{BACKLOG}} specifies the number of maximally pending
-connections (and defaults to 4). If the optional argument {{HOST}} is given and not
+connections (and defaults to 100). If the optional argument {{HOST}} is given and not
 {{#f}}, then only incoming connections for the given host (or IP) are accepted.
 
 
diff --git a/tcp.scm b/tcp.scm
index 49efac6d..c8e1bd76 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -279,7 +279,7 @@ EOF
 	   (##sys#string-append "cannot bind to socket - " strerror) s port) )
 	(values s addr) ) ) ) )
 
-(define-constant default-backlog 10)
+(define-constant default-backlog 100)
 
 (define (tcp-listen port . more)
   (let-optionals more ((w default-backlog) (host #f))