Changeset 15327 for src/Pugs/Lexer.hs

Timestamp:

02/22/07 20:20:59 (21 months ago)

Author:

lwall

Message:

Y -> Z, XX -> X

Files:

• src/Pugs/Lexer.hs (modified) (1 diff)

src/Pugs/Lexer.hs

@@ -214 +214 @@
     return rv
     where
-    aheadWord x  '=' = not $ x `elem` "xY\xA5" -- ¥
+    aheadWord x  '=' = not $ x `elem` "xXZ"
     aheadWord _  y   = not $ isWordAny y
     aheadSym '-' '>' = False -- XXX hardcode