Changeset 10174 for src/Pugs/Lexer.hs

Timestamp:

05/01/06 14:45:46 (3 years ago)

Author:

audreyt

Message:

* Lexer: In

<< < x > >>

do not commit on '<<' when we see inner '<'.
Reported by dakkar.

Files:

• src/Pugs/Lexer.hs (modified) (2 diffs)

src/Pugs/Lexer.hs

@@ -223 +223 @@
             return (parse:rest)
         , do
-            ch <- endrule
+            ch    <- endrule
             if i == 0
                 then return []
@@ -230 +230 @@
                     return (Val (VStr ch):rest)
         , do
-            ch <- startrule
+            ch   <- try startRule
             rest <- stringList (i+1)
             return (Val (VStr ch):rest)