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 b8c991ecb745ca50f91eb1e68561a5a4751b7ba7..34a9eac03dd438d2de3fb3c2e7b1134917d7bad0 100644 (file)
--- 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))))
 \f