From 4643aa5362444e19cc658aa3b61b82b67242b09e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 11 Jan 2001 15:03:30 +0000
Subject: [PATCH] Wrapped an exit around restart-command-processor to kill all
 threads.

---
 scsh/sighandlers.scm |  1 -
 scsh/top.scm         | 18 +++++++++---------
 2 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm
index c051e87..b765c90 100644
--- a/scsh/sighandlers.scm
+++ b/scsh/sighandlers.scm
@@ -167,7 +167,6 @@
   (interrupt-handler-ref int))
 
 (define (%install-scsh-handlers interactive?)
-  (display "install-scsh-handlers???\n")
   (do ((int 0 (+ int 1)))
       ((= int number-of-interrupts))
     (set-interrupt-handler
diff --git a/scsh/top.scm b/scsh/top.scm
index 85f6435..053963f 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -259,15 +259,15 @@
 				 (interaction-environment)))
 	   
 	   (cond ((not term-switch) ; -- interactive
-		  (restart-command-processor 
-		   args 
-		   context 
-		   (lambda () 
-		     (display "welcome to scsh-0.6 alpha " 
-				       (current-output-port))
-		     (newline (current-output-port))
-		     (in-package (user-environment) '()))))
-
+		  (exit 
+		   (restart-command-processor 
+		    args 
+		    context 
+		    (lambda () 
+		      (display "welcome to scsh-0.6 alpha " 
+			       (current-output-port))
+		      (newline (current-output-port))
+		      (in-package (user-environment) '())))))
 
 		 ((eq? term-switch 'c)
 		  (eval (read-exactly-one-sexp-from-string term-val)