From d7f602982e32a7351a7a52dbbe00dcfc811de0a3 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 21 Nov 2001 14:20:16 +0000
Subject: [PATCH] Use scheme-exit-now instead of exit.

---
 scsh/scsh-package.scm |  1 +
 scsh/top.scm          | 13 ++++++-------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index be27ddd..4811301 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -316,6 +316,7 @@
 				; with-current-output-port exit
 	scsh-level-0-internals	; set-command-line-args! init-scsh-vars
 	threads
+	root-scheduler          ; scheme-exit-now
 	scheme)
   (files top meta-arg))
 
diff --git a/scsh/top.scm b/scsh/top.scm
index 1a73807..e444401 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -275,18 +275,17 @@
 		      (in-package (user-environment) '())))))
 
 		 ((eq? term-switch 'c)
-		  (eval (read-exactly-one-sexp-from-string term-val)
-			(interaction-environment))
-		  (exit 0))
+		  (scheme-exit-now 
+		   (eval (read-exactly-one-sexp-from-string term-val)
+			 (interaction-environment))))		  )
 		 
 		 (top-entry		; There was a -e <entry>.
-		  ((eval top-entry (interaction-environment))
-		   (command-line))
-		  (exit 0))
+		  (scheme-exit-now ((eval top-entry (interaction-environment))
+				    (command-line))))
 		 
 		     ;; Otherwise, the script executed as it loaded,
 		 ;; so we're done.
-		 (else (exit 0)))))))))))))
+		 (else (scheme-exit-now 0))))))))))))