~ chicken-core (chicken-5) d0d56eda49f324afef66926f81055f4d935ff2f7
commit d0d56eda49f324afef66926f81055f4d935ff2f7
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Apr 25 21:59:37 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Apr 25 21:59:37 2011 +0200
chicken-install -test should apply to all extensions given on command-line (thanks to Kon Lovett)
diff --git a/chicken-install.scm b/chicken-install.scm
index 74b8ebf0..8e38c953 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -486,7 +486,9 @@
(pp dag)
(for-each
(lambda (e+d+v i)
- (let ((isdep (> i 1)))
+ (let ((isdep (not (find (lambda (e)
+ (equal? (if (pair? e) (car e) e) (car e+d+v)))
+ eggs))))
(when (and (not depinstall-ok)
isdep
(= i num))
Trap