Changeset 10027 for src/Pugs/Lexer.hs
- Timestamp:
- 04/18/06 19:28:51 (3 years ago)
- Files:
-
- 1 modified
-
src/Pugs/Lexer.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Lexer.hs
r10026 r10027 146 146 aheadSym '-' '>' = False -- XXX hardcode 147 147 aheadSym '!' '~' = False -- XXX hardcode 148 aheadSym x '=' = not (x `elem` "!~+-*&/|.%^ <>")148 aheadSym x '=' = not (x `elem` "!~+-*&/|.%^") 149 149 aheadSym '?' y = not (y `elem` "&|^?") 150 150 aheadSym '+' y = not (y `elem` "&|^+")
