From: sof <unknown>
Date: Fri, 15 Jan 1999 10:21:43 +0000 (+0000)
Subject: [project @ 1999-01-15 10:21:43 by sof]
X-Git-Tag: Approx_2487_patches~100
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dc0dba41e5eade93cd64154a4bc26dff602519bc;p=ghc-hetmet.git

[project @ 1999-01-15 10:21:43 by sof]
lexLitChar: '\DEL' wasn't being lexed properly
---

diff --git a/ghc/lib/std/PrelRead.lhs b/ghc/lib/std/PrelRead.lhs
index a4e394b..1ef7b43 100644
--- a/ghc/lib/std/PrelRead.lhs
+++ b/ghc/lib/std/PrelRead.lhs
@@ -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