From ab156cebd3fffe5c946de842837d189b35fbd44b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 15 May 2002 19:46:11 +0000
Subject: [PATCH] [project @ 2002-05-15 19:46:11 by sof] Assume the presence
 of a Bits Int32 instance only

---
 ghc/compiler/parser/Lex.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 18acecf..bdb7e69 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) 
-      | validExts .&. (I# exts) /= 0 -> cont kwd_token buf';
-    _				     -> var_token
+      | testBit (toInt32 exts) validExts -> cont kwd_token buf';
+    _				         -> var_token
 
  }}}
 
-- 
1.7.10.4