~ chicken-core (chicken-5) 867918d9587b8ccbcb3177dd20bdd4c83f20db86

commit 867918d9587b8ccbcb3177dd20bdd4c83f20db86
Author:     felix <felix@y.(none)>
AuthorDate: Wed Mar 31 23:45:47 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Mar 31 23:45:47 2010 +0200

    test in chicken-uninstall was incorrect, now the user is always asked before deinstalling, unless -force is given

diff --git a/chicken-uninstall.scm b/chicken-uninstall.scm
index 35feae9d..96ea4a0b 100644
--- a/chicken-uninstall.scm
+++ b/chicken-uninstall.scm
@@ -65,7 +65,7 @@
     (let ((eggs (gather-eggs pats)))
       (cond ((null? eggs)
 	     (print "nothing to remove.") )
-	    ((or *force* (equal? eggs pats) (ask eggs))
+	    ((or *force* (ask eggs))
 	     (for-each
 	      (lambda (e)
 		(print "removing " e)