Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv31604
Modified Files:
top.scm
Log Message:
Flush all ports before exit.
Index: top.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/top.scm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** top.scm 2001/11/21 14:20:16 1.17
--- top.scm 2001/11/27 17:10:07 1.18
***************
*** 270,291 ****
context
(lambda ()
! (display "welcome to scsh-0.6 alpha "
(current-output-port))
(newline (current-output-port))
(in-package (user-environment) '())))))
((eq? term-switch 'c)
! (scheme-exit-now
! (eval (read-exactly-one-sexp-from-string term-val)
! (interaction-environment)))) )
(top-entry ; There was a -e <entry>.
! (scheme-exit-now ((eval top-entry (interaction-environment))
(command-line))))
;; Otherwise, the script executed as it loaded,
;; so we're done.
! (else (scheme-exit-now 0))))))))))))
!
--- 270,297 ----
context
(lambda ()
! (display "Welcome to scsh 0.6 (Chinese Democracy) [alpha
version]"
(current-output-port))
(newline (current-output-port))
+ (display "Type ,? for help and ,debug to enter the
debugger"
+ (current-output-port))
+ (newline (current-output-port))
(in-package (user-environment) '())))))
((eq? term-switch 'c)
! (let ((result (eval (read-exactly-one-sexp-from-string
term-val)
! (interaction-environment))))
! (call-exit-hooks)
! (scheme-exit-now result)))
(top-entry ; There was a -e <entry>.
! (let ((result ((eval top-entry (interaction-environment))
(command-line))))
+ (call-exit-hooks)
+ (scheme-exit-now result)))
;; Otherwise, the script executed as it loaded,
;; so we're done.
! (else (call-exit-hooks)
! (scheme-exit-now 0)))))))))))))
***************
*** 296,299 ****
--- 302,308 ----
(error "More than one value read from string" s)))))
+ ;;; placeholder for an extensible mechanism in the future
+ (define (call-exit-hooks)
+ (flush-all-ports))
(define (bad-arg . msg)
|