From 210fe8695601b3f79fc653346d5a570b9fcb8d9d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 Mar 2000 09:39:26 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/parser/Lex.lhs |    3 ---
 1 file changed, 3 deletions(-)

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
-- 
1.7.10.4