~ chicken-core (chicken-5) eca1945c6b6ea1d7d0dbd2936f13aa388266a64e

commit eca1945c6b6ea1d7d0dbd2936f13aa388266a64e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 19 11:59:21 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 19 11:59:21 2011 +0200

    quit invokes exit-handler by default; added missing exports for chicken module

diff --git a/chicken.import.scm b/chicken.import.scm
index f3a88efb..722094df 100644
--- a/chicken.import.scm
+++ b/chicken.import.scm
@@ -69,6 +69,7 @@
    directory-exists?
    enable-warnings
    equal=?
+   er-macro-transformer
    errno
    error
    exit
@@ -157,6 +158,7 @@
    get-properties
    getter-with-setter
    implicit-exit-handler
+   ir-macro-transformer
    keyword->string
    keyword-style
    keyword?
@@ -190,6 +192,7 @@
    program-name
    promise?
    put!
+   quit
    register-feature!
    remprop!
    rename-file
diff --git a/library.scm b/library.scm
index a5897f44..504e0322 100644
--- a/library.scm
+++ b/library.scm
@@ -147,7 +147,7 @@ EOF
 
 (define (exit #!optional code) ((##sys#exit-handler) code))
 (define (reset) ((##sys#reset-handler)))
-(define (##sys#quit-hook result) ((##sys#reset-handler)))
+(define (##sys#quit-hook result) ((##sys#exit-handler) 0))
 (define (quit #!optional result) (##sys#quit-hook result))
 
 (define (##sys#error . args)
diff --git a/manual/Unit library b/manual/Unit library
index 619b0eb2..4ba5cefa 100644
--- a/manual/Unit library	
+++ b/manual/Unit library	
@@ -683,7 +683,7 @@ Returns an s-expression with debug information for the procedure {{PROC}}, or
 <procedure>(quit [RESULT])</procedure>
 
 In the interpreter {{quit}} exits the currently active read-eval-print loop.
-In compiled code, it is equivalent to calling {{reset}}. See also: {{repl}}.
+In compiled code, it is equivalent to calling {{exit}}. See also: {{repl}}.
 
 
 ==== reset