From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Feb 1999 06:13:14 +0000 (+0000)
Subject: Fix bug: when running something in a REPL buffer, Edwin would
X-Git-Tag: 20090517-FFI~4612
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92c24df7352cb464833d8917e888c31eee8f3999;p=mit-scheme.git

Fix bug: when running something in a REPL buffer, Edwin would
completely ignore all input.  It turned out that the "select"
mechanism was only looking at events for the console window, and not
for other windows, so it was blocking indefinitely.
---

diff --git a/v7/src/microcode/prntio.c b/v7/src/microcode/prntio.c
index 683070971..9909db50e 100644
--- a/v7/src/microcode/prntio.c
+++ b/v7/src/microcode/prntio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prntio.c,v 1.10 1999/01/02 06:11:34 cph Exp $
+$Id: prntio.c,v 1.11 1999/02/23 06:13:14 cph Exp $
 
 Copyright (c) 1993-1999 Massachusetts Institute of Technology
 
@@ -141,7 +141,7 @@ wait_for_multiple_objects_1 (unsigned long n_channels, Tchannel * channels,
 	  if (pending_interrupts_p ())
 	    return (-2);
 	}
-      else if (Screen_PeekEvent (master_tty_window, 0))
+      else if (Screen_pending_events_p ())
 	return (console_index);
       else
 	{