Fix think-o in last change.

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index a49b8ead30d1995958808ca043c850a3204d45f1..d0b7edbe2c862ac7a58d561b6fd476c08bee96c5 100644 (file)
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.29 1993/09/01 22:45:36 cph Exp $
+$Id: x11graph.scm,v 1.30 1993/09/01 23:12:10 cph Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -398,13 +398,12 @@ MIT in each case. |#
     (if (not block-events?)
        (unblock-thread-events))))
 
-(define (read-event-of-type device event-type)
-  (let ((display (x-graphics/display device)))
-    (let loop ()
-      (let ((event (read-event display)))
-       (if (fix:= (vector-ref event 0) event-type)
-           event
-           (loop))))))
+(define (read-event-of-type display event-type)
+  (let loop ()
+    (let ((event (read-event display)))
+      (if (fix:= (vector-ref event 0) event-type)
+         event
+         (loop)))))
 \f
 (define (process-event display event)
   (let ((handler (vector-ref event-handlers (vector-ref event 0))))