Permalink
Browse files

Fix win32 %peek-message call.

Test if return value is non-zero, not doing this
lead to stalled messages in the queue and
a bad event loop ensues.
  • Loading branch information...
patzy committed Jan 3, 2013
1 parent 51fe11f commit f7a601e05cdb6e50bb626a460833c765267e152b
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/win32/win32.lisp
View
@@ -549,7 +549,7 @@
(when (> (%get-message msg wnd 0 0) 0)
(%translate-message msg)
(%dispatch-message msg))
- (when (%peek-message msg wnd 0 0 :pm-remove)
+ (when (> (%peek-message msg wnd 0 0 :pm-remove) 0)
(%translate-message msg)
(%dispatch-message msg))))
%event%))

0 comments on commit f7a601e

Please sign in to comment.