From: simonmar <unknown>
Date: Mon, 14 Jun 1999 10:05:19 +0000 (+0000)
Subject: [project @ 1999-06-14 10:05:19 by simonmar]
X-Git-Tag: Approximately_9120_patches~6128
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f9317bfa98881beccd9c8e18e2b8ee2d654d93ad;p=ghc-hetmet.git

[project @ 1999-06-14 10:05:19 by simonmar]
Forgot 'forall' and 'foreign' as possible variable names.
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 2cb661c..0d160a0 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -73,11 +73,14 @@ import Ratio ( (%) )
  'qualified' 	{ ITqualified }
  'hiding' 	{ IThiding }
 
+ 'forall'	{ ITforall }			-- GHC extension keywords
+ 'foreign'	{ ITforeign }
  'export'	{ ITexport }
  'label'	{ ITlabel } 
  'dynamic'	{ ITdynamic }
  'unsafe'	{ ITunsafe }
- '__interface'	{ ITinterface }			-- GHC-extension keywords
+
+ '__interface'	{ ITinterface }			-- interface keywords
  '__export'	{ IT__export }
  '__forall'	{ IT__forall }
  '__depends'	{ ITdepends }
@@ -458,6 +461,8 @@ var_fs		:: { EncodedFS }
 		| 'as'			{ SLIT("as") }
 		| 'qualified'		{ SLIT("qualified") }
 		| 'hiding'		{ SLIT("hiding") }
+		| 'forall'		{ SLIT("forall") }
+		| 'foreign'		{ SLIT("foreign") }
 		| 'export'		{ SLIT("export") }
 		| 'label'		{ SLIT("label") }
 		| 'dynamic'		{ SLIT("dynamic") }