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) (define (wait-event dpy)
(if (not (> (events-queued dpy (queued-mode after-flush)) 0)) (if (not (> (events-queued dpy (queued-mode after-flush)) 0))
(block-on-message-inport dpy)) (block-on-message-inport dpy))
(next-event dpy)) (next-event dpy))
(define (block-on-message-inport dpy) ; needs ports, locks (define (block-on-message-inport dpy) ; needs ports, locks
(let ((port (display-message-inport dpy))) (let ((port (display-message-inport dpy)))
@ -43,7 +43,7 @@
(define (queued-mode->integer mode) (define (queued-mode->integer mode)
(queued-mode-index 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. ;; mode.
(define (events-pending display) (define (events-pending display)