From 1afb9759e4fd3bad3ef2b5b3ce22e6f2255974d7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 1 Sep 1993 23:12:10 +0000 Subject: [PATCH] Fix think-o in last change. --- v7/src/runtime/x11graph.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index a49b8ead3..d0b7edbe2 100644 --- 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))))) (define (process-event display event) (let ((handler (vector-ref event-handlers (vector-ref event 0)))) -- 2.25.1