projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ab156ce
)
[project @ 2002-05-15 20:25:10 by sof]
author
sof
<unknown>
Wed, 15 May 2002 20:25:10 +0000
(20:25 +0000)
committer
sof
<unknown>
Wed, 15 May 2002 20:25:10 +0000
(20:25 +0000)
make prev commit work
ghc/compiler/parser/Lex.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/parser/Lex.lhs
b/ghc/compiler/parser/Lex.lhs
index
bdb7e69
..
c3c7402
100644
(file)
--- 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
}}}