~ chicken-core (chicken-5) 238f99fd393128709959f14464ddd261969a8f4b


commit 238f99fd393128709959f14464ddd261969a8f4b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 2 14:09:39 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 2 14:09:39 2011 +0200

    increased connection and read/write tcp timeouts to 30 seconds

diff --git a/setup-download.scm b/setup-download.scm
index ba31bafe..9ea39bde 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -40,8 +40,8 @@
   (import scheme chicken foreign)
   (import extras irregex posix utils srfi-1 data-structures tcp srfi-13 files setup-api)
 
-  (define-constant +default-tcp-connect-timeout+ 10000) ; 10 seconds
-  (define-constant +default-tcp-read/write-timeout+ 20000) ; 20 seconds
+  (define-constant +default-tcp-connect-timeout+ 30000) ; 30 seconds
+  (define-constant +default-tcp-read/write-timeout+ 30000) ; 30 seconds
 
   (define-constant +url-regex+ "(http://)?([^/:]+)(:([^:/]+))?(/.+)")
 
Trap