~ chicken-core (chicken-5) 6497179f056be28460dfa55ffcb79ca8a37a3dbc


commit 6497179f056be28460dfa55ffcb79ca8a37a3dbc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Feb 18 14:17:50 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Feb 18 14:17:50 2010 +0100

    apply mappings from setup.defaults also to indirect requirements

diff --git a/chicken-install.scm b/chicken-install.scm
index 0ce7f68c..933a44e2 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -285,6 +285,7 @@
                     (let ([meta (with-input-from-file mfile read)])
                       (print "checking dependencies for `" (car e+d+v) "' ...")
                       (let-values ([(missing upgrade) (outdated-dependencies meta)])
+			(set! missing (apply-mappings missing)) ;XXX only missing - wrong?
 			(set! *dependencies*
 			  (cons
 			   (cons (car e+d+v)
Trap