From: simonmar <unknown>
Date: Thu, 9 Mar 2000 09:39:26 +0000 (+0000)
Subject: [project @ 2000-03-09 09:39:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~5034
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=210fe8695601b3f79fc653346d5a570b9fcb8d9d;p=ghc-hetmet.git

[project @ 2000-03-09 09:39:26 by simonmar]
- remove hack which treats '_[A-Z]+' as a constructor token.  This
  isn't required now that everything in interface files is Z-encoded.
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 6d56a6d..6b1e212 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -1036,9 +1036,6 @@ slurp_trailing_hashes buf glaexts
 
 mk_var_token pk_str
   | is_upper f		= ITconid pk_str
- 	-- _[A-Z] is treated as a constructor in interface files.
-  | f `eqChar#` '_'# && not (_NULL_ tl) 
-	&& (case _HEAD_ tl of { C# g -> is_upper g }) = ITconid pk_str
   | is_ident f		= ITvarid pk_str
   | f `eqChar#` ':'#	= ITconsym pk_str
   | otherwise		= ITvarsym pk_str