From: simonmar <unknown>
Date: Thu, 9 Dec 1999 16:45:57 +0000 (+0000)
Subject: [project @ 1999-12-09 16:45:57 by simonmar]
X-Git-Tag: Approximately_9120_patches~5389
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=49cc29372fb3081ae7a2ff63351a91656bb9d8e2;p=ghc-hetmet.git

[project @ 1999-12-09 16:45:57 by simonmar]
allow certain keywords as scc labels.
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index f894349..7661607 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -469,7 +469,6 @@ mod_name	:: { ModuleName }
 ---------------------------------------------------
 var_fs		:: { EncodedFS }
 		: VARID			{ $1 }
-		| VARSYM		{ $1 }
 		| '!'	  		{ SLIT("!") }
 		| 'as'			{ SLIT("as") }
 		| 'qualified'		{ SLIT("qualified") }
@@ -793,7 +792,7 @@ scc     :: { CostCentre }
 
 cc_name :: { EncodedFS }
         : CONID                 { $1 }
-        | VARID                 { $1 }
+        | var_fs                { $1 }
   
 cc_dup  :: { IsDupdCC }
 cc_dup  :                       { OriginalCC }