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))