From 0cd4535ddbfa893b6a45e91d7945a3ec1f389594 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 19 Dec 1997 10:49:45 +0000
Subject: [PATCH] [project @ 1997-12-19 10:49:45 by sof] Cleaned out old
defnition of lex_id
---
ghc/compiler/reader/Lex.lhs | 27 ---------------------------
1 file changed, 27 deletions(-)
diff --git a/ghc/compiler/reader/Lex.lhs b/ghc/compiler/reader/Lex.lhs
index cc3c8d84ad8f..8a384906b3c1 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
--
GitLab