From cccb9ef8ff9d8a6947c40c4c268a045df43ed80b Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 17 Apr 2002 14:51:31 +0000
Subject: [PATCH] Fixed comment.

---
 scheme/xlib/event.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/xlib/event.scm b/scheme/xlib/event.scm
index a072a9f..fe2fab0 100644
--- a/scheme/xlib/event.scm
+++ b/scheme/xlib/event.scm
@@ -6,7 +6,7 @@
 (define (wait-event dpy)
   (if (not (> (events-queued dpy (queued-mode after-flush)) 0))
       (block-on-message-inport dpy))
-  (next-event dpy))
+  (next-event dpy))  
 
 (define (block-on-message-inport dpy) ; needs ports, locks
   (let ((port (display-message-inport dpy)))
@@ -43,7 +43,7 @@
 (define (queued-mode->integer mode)
   (queued-mode-index mode))
 
-;; events-pending is identical to events-pending with after-flush
+;; events-pending is identical to events-queued with after-flush
 ;; mode.
 
 (define (events-pending display)