~ chicken-core (chicken-5) 3ae1c18d6eb959eec72b19bf406c0a5499f4ef84

commit 3ae1c18d6eb959eec72b19bf406c0a5499f4ef84
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed May 4 05:26:54 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 4 05:26:54 2011 -0400

    correct dependency detection if no eggname is given

diff --git a/chicken-install.scm b/chicken-install.scm
index 8e38c953..810adda0 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -486,12 +486,11 @@
 	(pp dag)
 	(for-each
 	 (lambda (e+d+v i)
-	   (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))
+	   (let ((isdep (and (pair? eggs)
+			     (not (find (lambda (e)
+					  (equal? (if (pair? e) (car e) e) (car e+d+v)))
+					eggs)))))
+	     (when (and (not depinstall-ok) isdep)
 	       (when (and *no-install*
 			   (not (yes-or-no?
 				 (string-append