scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed comment.

This commit is contained in:
mainzelm 2002-04-17 14:51:31 +00:00
parent 9d7832066c
commit cccb9ef8ff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/xlib/event.scm
View File

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