~ chicken-core (chicken-5) 6b94206e784d3a8bc476e1f9d430711cb0e649ac

commit 6b94206e784d3a8bc476e1f9d430711cb0e649ac
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 29 14:36:18 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 29 14:36:18 2011 +0200

    renamed redef of quit

diff --git a/chicken-uninstall.scm b/chicken-uninstall.scm
index 40e947f7..309a9d81 100644
--- a/chicken-uninstall.scm
+++ b/chicken-uninstall.scm
@@ -60,14 +60,14 @@
 	(map (cut grep <> eggs) patterns))
        string=?)))
 
-  (define (quit code)
+  (define (fini code)
     (print "aborted.")
     (exit code))
 
   (define (ask eggs)
     (handle-exceptions ex
 	(if (eq? ex 'aborted)
-	    (quit 1) 
+	    (fini 1) 
 	    (signal ex))
       (yes-or-no? 
        (string-concatenate