~ chicken-core (chicken-5) da127d36dd4b5310254ac433402b5b7b87f25062


commit da127d36dd4b5310254ac433402b5b7b87f25062
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jan 15 16:06:07 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jan 15 16:06:07 2010 +0100

    fixed construction of dep.-list in chicken-install (#159)

diff --git a/chicken-install.scm b/chicken-install.scm
index 6f8d141a..e92dd23a 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -266,7 +266,12 @@
                       (let-values ([(missing upgrade) (outdated-dependencies meta)])
 			(set! *dependencies*
 			  (cons
-			   (cons (car e+d+v) (append missing upgrade))
+			   (cons (car e+d+v)
+				 (map (lambda (mu)
+					(if (pair? mu)
+					    (car mu)
+					    mu))
+				      (append missing upgrade)))
 			   *dependencies*))
                         (when (pair? missing)
                           (print " missing: " (string-intersperse missing ", "))
Trap