~ chicken-core (chicken-5) 2c7c6cca5026c6a3857547a7e1b499fa1e0219e5


commit 2c7c6cca5026c6a3857547a7e1b499fa1e0219e5
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:07:21 2010 +0100

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

diff --git a/chicken-install.scm b/chicken-install.scm
index 295deb6e..78f7f5ee 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -265,7 +265,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