Wrapped an exit around restart-command-processor to kill all threads.

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

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)