From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Aug 1993 00:18:39 +0000 (+0000)
Subject: Fix bug introduced by last change: when an input-event is processed by
X-Git-Tag: 20090517-FFI~8051
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f28fc72876d83ea03ac03dec66e117d6776b9176;p=mit-scheme.git

Fix bug introduced by last change: when an input-event is processed by
a "peek" routine, it must be discarded, otherwise the reader gets
stuck in a loop processing the same event over and over.
---

diff --git a/v7/src/edwin/input.scm b/v7/src/edwin/input.scm
index b8c991ecb..34a9eac03 100644
--- a/v7/src/edwin/input.scm
+++ b/v7/src/edwin/input.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: input.scm,v 1.96 1993/08/01 06:44:19 cph Exp $
+;;;	$Id: input.scm,v 1.97 1993/08/19 00:18:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -220,6 +220,9 @@ B 3BAB8C
 				(car (input-event/operands input))))))))
 	  (begin
 	    (apply-input-event input)
+	    (let ((discard (editor-read current-editor)))
+	      (if (not (eq? discard thunk))
+		  (discard)))
 	    (loop))
 	  input))))