Commit dc0dba41 authored by sof's avatar sof
Browse files

[project @ 1999-01-15 10:21:43 by sof]

lexLitChar: '\DEL' wasn't being lexed properly
parent 0fffbea8
......@@ -246,11 +246,13 @@ lexLitChar ('\\':s) = do
lexEsc _ = mzero
fromAsciiLab (x:y:z:ls) | isUpper y && (isUpper z || isDigit z) &&
[x,y,z] `elem` asciiTab = return ([x,y,z], ls)
[x,y,z] `elem` asciiEscTab = return ([x,y,z], ls)
fromAsciiLab (x:y:ls) | isUpper y &&
[x,y] `elem` asciiTab = return ([x,y], ls)
fromAsciiLab _ = mzero
[x,y] `elem` asciiEscTab = return ([x,y], ls)
fromAsciiLab _ = mzero
asciiEscTab = "DEL" : asciiTab
lexLitChar (c:s) = return ([c],s)
lexLitChar "" = mzero
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment