From f28fc72876d83ea03ac03dec66e117d6776b9176 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Aug 1993 00:18:39 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/input.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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))))
 
-- 
2.25.1