From: sof <unknown>
Date: Wed, 15 May 2002 20:25:10 +0000 (+0000)
Subject: [project @ 2002-05-15 20:25:10 by sof]
X-Git-Tag: Approx_11550_changesets_converted~2029
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1b679d8921bc591a7ea49b62f66926b455b3b512;hp=ab156cebd3fffe5c946de842837d189b35fbd44b;p=ghc-hetmet.git

[project @ 2002-05-15 20:25:10 by sof]
make prev commit work
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index bdb7e69..c3c7402 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -890,8 +890,8 @@ lex_id cont exts buf =
 
  case lookupUFM ghcExtensionKeywordsFM lexeme of {
     Just (kwd_token, validExts) 
-      | testBit (toInt32 exts) validExts -> cont kwd_token buf';
-    _				         -> var_token
+      | validExts .&. (toInt32 exts) /= 0 -> cont kwd_token buf';
+    _				          -> var_token
 
  }}}