From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Oct 2004 04:39:32 +0000 (+0000)
Subject: It's now OK to flush output during GC.  (Whew!)
X-Git-Tag: 20090517-FFI~1571
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=51d43f8c3302d60f3e41f1ffb9beaf8ed80e03e4;p=mit-scheme.git

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 bf0b9cc00..d2bd70f5f 100644
--- 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)