It's now OK to flush output during GC. (Whew!)

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index bf0b9cc00615c0f3b17b843f0b5390387cbd3791..d2bd70f5f71dee81e3bc2e007b8b81043fba0800 100644 (file)
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: emacs.scm,v 14.38 2004/09/30 20:02:48 cph Exp $
+$Id: emacs.scm,v 14.39 2004/10/01 04:39:32 cph Exp $
 
 Copyright 1986,1987,1991,1993,1994,1999 Massachusetts Institute of Technology
 Copyright 2001,2003,2004 Massachusetts Institute of Technology
@@ -175,6 +175,7 @@ USA.
 ;;; On an interpreted system, they will cons a little anyway.
 
 (define (emacs/gc-start port)
+  (output-port/flush-output port)
   (cwb (port/output-channel port) "\033b" 0 2))
 
 (define (emacs/gc-finish port)