Changeset 9258 in project

Timestamp:

03/07/08 07:35:10 (13 years ago)

Author:

Ivan Raikov

Message:

A fix to handle the case when installing from a .egg file.

File:

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

chicken/trunk/chicken-setup.scm

@@ -652 +652 @@
            (chdir tmpdir)
            (setup-build-directory (current-directory))
-           (let ((fn2 (if (and *local-repository* (not (string-prefix? (setup-download-directory) filename)))
+           (let ((fn2 (if (and (not (or *local-repository* (with-ext filename "egg") (with-ext filename "egg-dir")))
+                               (not (string-prefix? (setup-download-directory) filename)))
                           (make-pathname (setup-download-directory) filename)
                           filename))