~ chicken-core (chicken-5) 67f3af07386b3d6f3aae24efc7b49a5ac4ad6fa3

commit 67f3af07386b3d6f3aae24efc7b49a5ac4ad6fa3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Mar 10 14:17:08 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Mar 10 14:17:08 2010 +0100

    fixed typo in chicken-install, handles relative pathname for local transport

diff --git a/chicken-install.scm b/chicken-install.scm
index 9ffd3134..638f5bb6 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -120,7 +120,11 @@
 
   (define (known-default-sources)
     (if (and *default-location* *default-transport*)
-        `(((location ,*default-location*)
+        `(((location 
+	    ,(if (and (eq? *default-transport* 'local)
+		      (not (absolute-pathname? *default-location*) ))
+		 (make-pathname (current-directory) *default-location*)
+		 *default-location*))
            (transport ,*default-transport*)))
         *default-sources* ) )
 
@@ -339,7 +343,7 @@
 		((eq? 'and (car p))
 		 (and (every loop (cdr p)) (fail)))
 		((eq? 'or (car p))
-		 (and (not (any? loop (cdr p))) (fail)))
+		 (and (not (any loop (cdr p))) (fail)))
 		(else (error "invalid `platform' property" name (cadr platform))))))))
 
   (define (make-install-command e+d+v dep?)