Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv5263
Modified Files:
sighandlers.scm top.scm
Log Message:
Wrapped an exit around restart-command-processor to kill all threads.
Index: sighandlers.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/sighandlers.scm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** sighandlers.scm 2001/01/09 15:52:52 1.13
--- sighandlers.scm 2001/01/11 15:03:30 1.14
***************
*** 168,172 ****
(define (%install-scsh-handlers interactive?)
- (display "install-scsh-handlers???\n")
(do ((int 0 (+ int 1)))
((= int number-of-interrupts))
--- 168,171 ----
Index: top.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/top.scm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** top.scm 2001/01/09 15:52:52 1.12
--- top.scm 2001/01/11 15:03:30 1.13
***************
*** 260,272 ****
(cond ((not term-switch) ; -- interactive
! (restart-command-processor
! args
! context
! (lambda ()
! (display "welcome to scsh-0.6 alpha "
! (current-output-port))
! (newline (current-output-port))
! (in-package (user-environment) '()))))
!
((eq? term-switch 'c)
--- 260,272 ----
(cond ((not term-switch) ; -- interactive
! (exit
! (restart-command-processor
! args
! context
! (lambda ()
! (display "welcome to scsh-0.6 alpha "
! (current-output-port))
! (newline (current-output-port))
! (in-package (user-environment) '())))))
((eq? term-switch 'c)
|