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,6 +259,7 @@
 				 (interaction-environment)))
 	   
 	   (cond ((not term-switch) ; -- interactive
+		  (exit 
 		   (restart-command-processor 
 		    args 
 		    context 
@@ -266,8 +267,7 @@
 		      (display "welcome to scsh-0.6 alpha " 
 			       (current-output-port))
 		      (newline (current-output-port))
-		     (in-package (user-environment) '()))))
-
+		      (in-package (user-environment) '())))))
 
 		 ((eq? term-switch 'c)
 		  (eval (read-exactly-one-sexp-from-string term-val)