Changeset 13981 in project

Timestamp:

03/28/09 10:25:44 (11 years ago)

Author:

Alex Shinn

Message:

Removing infinite loop when -fetch is used on an egg with
dependencies.

File:

• chicken/branches/chicken-3/chicken-setup.scm (modified) (1 diff)

chicken/branches/chicken-3/chicken-setup.scm

@@ -1092 +1092 @@
                              (print "downloading required extensions " reqs " ...")
                              (for-each (cut download-data *last-decent-host* <>) reqs)
-                             (print "installing required extensions ...")
-                             (for-each (cut install <>) (map ->string reqs)) )
+                             (when (not *fetch-only*)
+                               (print "installing required extensions ...")
+                               (for-each (cut install <>) (map ->string reqs))))
                            (download-data *last-decent-host* (first a))) ) 
                       (else