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

+ Greet with scsh-version-string 

+ call relinquish-timeslice twice before exit so the flushers may run
This commit is contained in:
mainzelm 2002-02-25 09:00:39 +00:00
parent 23f230a6df
commit 09ab472695
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scsh/top.scm
View File

@ -344,7 +344,10 @@
args args
context context
(lambda () (lambda ()
(display "Welcome to scsh 0.6.0 (Chinese Democracy)" (display (string-append
"Welcome to scsh "
scsh-version-string
" (Combinatorial Algorithms)")
(current-output-port)) (current-output-port))
(newline (current-output-port)) (newline (current-output-port))
(display "Type ,? for help." (display "Type ,? for help."
@ -378,7 +381,9 @@
;;; placeholder for an extensible mechanism in the future ;;; placeholder for an extensible mechanism in the future
(define (call-exit-hooks) (define (call-exit-hooks)
(flush-all-ports)) (flush-all-ports)
(relinquish-timeslice)
(relinquish-timeslice))
(define (load-library-file file lib-dirs script-file) (define (load-library-file file lib-dirs script-file)
; (format (error-output-port) "Load-library-file: ~a ~s\n" file lib-dirs) ; (format (error-output-port) "Load-library-file: ~a ~s\n" file lib-dirs)