From b951e1c933bff8b88deb07a3e1c9ea3de0292daf Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 27 Jun 2002 12:26:23 +0000
Subject: [PATCH] Use flush-all-ports-no-threads on exit.

---
 scsh/top.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/top.scm b/scsh/top.scm
index 3ceec60..4610216 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -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)