From 336631984e24137b1558b54379845930116616ad Mon Sep 17 00:00:00 2001 From: Mario Domenech Goulart Date: Mon, 18 Jul 2011 10:25:47 -0300 Subject: [PATCH] Default code for `exit' Fixes build issue introduced by 4e8ef70c5edeb6d4d0d81923842a57300bab253c --- library.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/library.scm b/library.scm index a5897f4..ddce432 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#reset-handler))) (define (quit #!optional result) (##sys#quit-hook result)) -- 1.7.2.5