~ 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