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

Wrapped an exit around restart-command-processor to kill all threads.

This commit is contained in:
mainzelm 2001-01-11 15:03:30 +00:00
parent 3e2a109780
commit 4643aa5362
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scsh/sighandlers.scm
View File

@ -167,7 +167,6 @@
(interrupt-handler-ref int)) (interrupt-handler-ref int))
(define (%install-scsh-handlers interactive?) (define (%install-scsh-handlers interactive?)
(display "install-scsh-handlers???\n")
(do ((int 0 (+ int 1))) (do ((int 0 (+ int 1)))
((= int number-of-interrupts)) ((= int number-of-interrupts))
(set-interrupt-handler (set-interrupt-handler

18
scsh/top.scm
View File

@ -259,15 +259,15 @@
(interaction-environment))) (interaction-environment)))
(cond ((not term-switch) ; -- interactive (cond ((not term-switch) ; -- interactive
(restart-command-processor (exit
args (restart-command-processor
context args
(lambda () context
(display "welcome to scsh-0.6 alpha " (lambda ()
(current-output-port)) (display "welcome to scsh-0.6 alpha "
(newline (current-output-port)) (current-output-port))
(in-package (user-environment) '())))) (newline (current-output-port))
(in-package (user-environment) '())))))
((eq? term-switch 'c) ((eq? term-switch 'c)
(eval (read-exactly-one-sexp-from-string term-val) (eval (read-exactly-one-sexp-from-string term-val)