~ 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