Use flush-all-ports-no-threads on exit.

This commit is contained in:
mainzelm 2002-06-27 12:26:23 +00:00
parent 1aadf4e87f
commit b951e1c933
1 changed files with 1 additions and 1 deletions

View File

@ -408,7 +408,7 @@
(call-narrowed-exit-hooks)
(scheme-exit-now status))))
(add-narrowed-exit-hook! flush-all-ports)
(add-narrowed-exit-hook! flush-all-ports-no-threads)
(define (load-library-file file lib-dirs script-file)
; (format (error-output-port) "Load-library-file: ~a ~s\n" file lib-dirs)