Update of /cvsroot/scsh/scsh-0.6/scsh
In directory slayer.i.sourceforge.net:/tmp/cvs-serv15359
Modified Files:
top.scm
Log Message:
forever-sleeping-thread is only started in interactive sessions since
it prevents the system from exiting.
Fixed -i switch.
Index: top.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/top.scm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** top.scm 2000/09/17 15:10:41 1.8
--- top.scm 2000/10/04 14:12:49 1.9
***************
*** 238,242 ****
(lambda ()
(begin
- (spawn forever-sleeping-thread)
(init-low-interrupt)
(install-event-handlers!)
--- 238,241 ----
***************
*** 269,272 ****
--- 268,272 ----
context
(lambda ()
+ (spawn forever-sleeping-thread)
(display "welcome to scsh-0.6 alpha "
(current-output-port))
***************
*** 276,281 ****
((eq? term-switch 'c)
! ;;; JMG eval now needs expr represented as data
! (eval '(read-exactly-one-sexp-from-string term-val)
(interaction-environment))
(exit 0))
--- 276,280 ----
((eq? term-switch 'c)
! (eval (read-exactly-one-sexp-from-string term-val)
(interaction-environment))
(exit 0))
|