~ chicken-core (chicken-5) e1c462abb056035e5146daf1be20f6c58d4b7fa3

commit e1c462abb056035e5146daf1be20f6c58d4b7fa3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 1 08:29:37 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 1 08:29:37 2011 +0200

    renamed use of quit in chicken-uninstall.scm

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