~ chicken-core (chicken-5) 3d35f9fa8b316bda61ad6b0b512d623d878f78e4

commit 3d35f9fa8b316bda61ad6b0b512d623d878f78e4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Feb 10 19:16:25 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Feb 10 19:16:25 2010 +0100

    inverted use of yes-or-no? for no-install case

diff --git a/chicken-install.scm b/chicken-install.scm
index f830eb07..c6b2f92a 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -328,10 +328,10 @@
 		      (= i 1)
 		      (> num 1))
 	     (when (and *no-install*
-			(yes-or-no?
-			 (string-append
-			  "You specified `-no-install', but this extension has dependencies"
-			  " that are required for building. Do you still want to install them?")))
+			(not (yes-or-no?
+			      (string-append
+			       "You specified `-no-install', but this extension has dependencies"
+			       " that are required for building. Do you still want to install them?"))))
 	       (print "aborting installation.")
 	       (cleanup)
 	       (exit 1)))