From: sof <unknown>
Date: Fri, 19 Dec 1997 10:49:45 +0000 (+0000)
Subject: [project @ 1997-12-19 10:49:45 by sof]
X-Git-Tag: Approx_2487_patches~1145
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0cd4535ddbfa893b6a45e91d7945a3ec1f389594

[project @ 1997-12-19 10:49:45 by sof]
Cleaned out old defnition of lex_id
---

diff --git a/ghc/compiler/reader/Lex.lhs b/ghc/compiler/reader/Lex.lhs
index cc3c8d8..8a38490 100644
--- a/ghc/compiler/reader/Lex.lhs
+++ b/ghc/compiler/reader/Lex.lhs
@@ -609,33 +609,6 @@ is_mod_char (C# c#) =
 
 --isAlphanum c || c == '_' || c== '\'' --`elem` "_'"
 
-{-
-lex_id cs = 
- case _scc_ "lex_id.span" my_span' (is_mod_char) cs of
-   (xs, len, cs') ->
-    case cs' of
-     [] -> case xs of
-	    [] -> lex_id2 Nothing cs
-	    _  -> lex_id3 Nothing len xs cs
-
-     '.':cs'' ->
-        case xs of
-	  [] -> lex_id2 Nothing cs
-	  _  ->
-           let
-            pk_str = _PK_ (xs::String)
-            len = lengthPS pk_str
-           in
-           if len==len+1 then
-              error "Well, I never!"
-           else
-              lex_id2 (Just pk_str) cs''
-     _ -> case xs of
-	    [] -> lex_id2 Nothing cs
-	    _  -> lex_id3 Nothing len xs cs'
-
--}
-
 lex_id cont buf = 
 -- _trace ("lex_id: "++[C# (currentChar# buf)]) $
  case expandWhile (is_mod_char) buf of