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

Minor fixes.

This commit is contained in:
mainzelm 2002-06-26 11:56:14 +00:00
parent d17a682498
commit f197f3b06c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/top.scm
View File

@ -360,7 +360,7 @@
(display (string-append (display (string-append
"Welcome to scsh " "Welcome to scsh "
scsh-version-string scsh-version-string
" (Gambit-C 4.0)") " (" scsh-release-name ")")
(current-output-port)) (current-output-port))
(newline (current-output-port)) (newline (current-output-port))
(display "Type ,? for help." (display "Type ,? for help."
@ -399,6 +399,7 @@
(define (add-narrowed-exit-hook! thunk) (define (add-narrowed-exit-hook! thunk)
(set! *narrowed-exit-hooks* (cons thunk *narrowed-exit-hooks*))) (set! *narrowed-exit-hooks* (cons thunk *narrowed-exit-hooks*)))
(define (call-narrowed-exit-hooks) (define (call-narrowed-exit-hooks)
(for-each (lambda (thunk) (thunk)) *narrowed-exit-hooks*))
(define (scsh-exit-now status) (define (scsh-exit-now status)
(call-exit-hooks) (call-exit-hooks)