Changeset 12227 in project for chicken/trunk/setup-download.scm

Timestamp:

10/21/08 20:42:22 (12 years ago)

Author:

felix winkelmann

Message:

• added helpful script for testing in build dir
• chicken-install checks for TCP timeouts and handles multiple default sources to download from
• alias-global-hook is saved and restored when loading compiler extensions
• making bootstrap automaticaly makes confclean

File:

• chicken/trunk/setup-download.scm (modified) (2 diffs)

chicken/trunk/setup-download.scm

@@ -38 +38 @@
   (import extras regex posix utils setup-utils srfi-1 data-structures tcp 
           srfi-13 files)
+
+  (tcp-connect-timeout 10000)           ; 10 seconds
+  (tcp-read-timeout 10000)
+  (tcp-write-timeout 10000)
 
   (define *quiet* #f)
@@ -133 +137 @@
                      "")))
            (eggdir (make-pathname tmpdir egg)))
-      (create-directory eggdir)
+      (unless (file-exists? eggdir)
+        (create-directory eggdir))
       (http-fetch host port loc eggdir)
       eggdir))