~ chicken-core (chicken-5) 35f78c1839d01c7c84d4de5deebc45a7a16a4d91

commit 35f78c1839d01c7c84d4de5deebc45a7a16a4d91
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 19 12:24:44 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 19 12:24:44 2011 +0200

    use correct default for exit-code

diff --git a/library.scm b/library.scm
index 504e0322..d9d9f86d 100644
--- a/library.scm
+++ b/library.scm
@@ -145,7 +145,7 @@ EOF
 
 ;;; System routines:
 
-(define (exit #!optional code) ((##sys#exit-handler) code))
+(define (exit #!optional (code 0)) ((##sys#exit-handler) code))
 (define (reset) ((##sys#reset-handler)))
 (define (##sys#quit-hook result) ((##sys#exit-handler) 0))
 (define (quit #!optional result) (##sys#quit-hook result))