From 04e4dba6a2cf2226f59604fe9bb961cfe3d9cb3e Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 27 Sep 2005 16:36:00 +0000
Subject: [PATCH] Finish ,exit

part of darcs patch Thu Sep 22 18:59:15 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
---
 scheme/nuit-packages.scm   | 1 +
 scheme/scheme-commands.scm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/nuit-packages.scm b/scheme/nuit-packages.scm
index 723edb3..03dab5d 100644
--- a/scheme/nuit-packages.scm
+++ b/scheme/nuit-packages.scm
@@ -512,6 +512,7 @@
 
 (define-structure scheme-commands scheme-commands-interface
   (open scheme
+        (subset scsh (exit))
         srfi-8
         srfi-13
         srfi-23
diff --git a/scheme/scheme-commands.scm b/scheme/scheme-commands.scm
index a84b472..c952f33 100644
--- a/scheme/scheme-commands.scm
+++ b/scheme/scheme-commands.scm
@@ -40,5 +40,5 @@
                  (ensure-loaded s)
                  "reloaded package")))))
     ((exit)
-     (exit))
+     (exit 0))
     (else (error "unknwon scheme command" command))))