From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 12 Aug 2016 20:16:37 +0000 (-0700)
Subject: x11/x11base.scm (make-event-object): Convert bit number to bit mask.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa8a992d8a3fbba5be48a7bb8255d61364f5087f;p=mit-scheme.git

x11/x11base.scm (make-event-object): Convert bit number to bit mask.
---

diff --git a/src/x11/x11base.scm b/src/x11/x11base.scm
index ad657e405..444c6b4d4 100644
--- a/src/x11/x11base.scm
+++ b/src/x11/x11base.scm
@@ -161,7 +161,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
     (and
      (not (eq? #f scmtype))
-     (not (zero? (bitwise-and scmtype (C-call "x_window_event_mask" window))))
+     (not (zero? (bitwise-and (bit scmtype)
+			      (C-call "x_window_event_mask" window))))
      (cond
 
       ((eq? scmtype event-type:key-press)		; xtype = KeyPress