From f9317bfa98881beccd9c8e18e2b8ee2d654d93ad Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 14 Jun 1999 10:05:19 +0000
Subject: [PATCH] [project @ 1999-06-14 10:05:19 by simonmar] Forgot 'forall'
 and 'foreign' as possible variable names.

---
 ghc/compiler/rename/ParseIface.y |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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") }
-- 
1.7.10.4