From 6d9e7de153cd067aca8ed14f3813f5ea56982b2a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 4 Oct 2000 14:12:49 +0000
Subject: [PATCH] forever-sleeping-thread is only started in interactive
 sessions since it prevents the system from exiting. Fixed -i switch.

---
 scsh/top.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scsh/top.scm b/scsh/top.scm
index 259306a..8211893 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -237,7 +237,6 @@
       (environment-for-commands)
        (lambda ()
        (begin
-	 (spawn forever-sleeping-thread)
 	 (init-low-interrupt)
 	 (install-event-handlers!)
 	 (%install-scsh-handlers (not term-switch))
@@ -268,6 +267,7 @@
 		   args 
 		   context 
 		   (lambda () 
+		     (spawn forever-sleeping-thread)
 		     (display "welcome to scsh-0.6 alpha " 
 				       (current-output-port))
 		     (newline (current-output-port))
@@ -275,8 +275,7 @@
 
 
 		 ((eq? term-switch 'c)
-		      ;;; JMG eval now needs expr represented as data
-		  (eval '(read-exactly-one-sexp-from-string term-val)
+		  (eval (read-exactly-one-sexp-from-string term-val)
 			(interaction-environment))
 		  (exit 0))