~ 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