scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

forever-sleeping-thread is only started in interactive sessions since 

it prevents the system from exiting.
Fixed -i switch.
This commit is contained in:
mainzelm 2000-10-04 14:12:49 +00:00
parent 3bcabf36b5
commit 6d9e7de153
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/top.scm
View File

@ -237,7 +237,6 @@
(environment-for-commands) (environment-for-commands)
(lambda () (lambda ()
(begin (begin
(spawn forever-sleeping-thread)
(init-low-interrupt) (init-low-interrupt)
(install-event-handlers!) (install-event-handlers!)
(%install-scsh-handlers (not term-switch)) (%install-scsh-handlers (not term-switch))
@ -268,6 +267,7 @@
args args
context context
(lambda () (lambda ()
(spawn forever-sleeping-thread)
(display "welcome to scsh-0.6 alpha " (display "welcome to scsh-0.6 alpha "
(current-output-port)) (current-output-port))
(newline (current-output-port)) (newline (current-output-port))
@ -275,8 +275,7 @@
((eq? term-switch 'c) ((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)) (interaction-environment))
(exit 0)) (exit 0))