From: simonmar <unknown>
Date: Tue, 24 Jun 2003 10:01:27 +0000 (+0000)
Subject: [project @ 2003-06-24 10:01:27 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~743
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cd0f89a0bf35c36575ea89d7c7599473a3600683

[project @ 2003-06-24 10:01:27 by simonmar]
"rec" should be a keyword only when -farrows is on, not when
-fglasgow-exts is on.
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 33a9594..d559150 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -310,8 +310,6 @@ ghcExtensionKeywordsFM = listToUFM $
 	( "reifyType",  ITreifyType,	 bit glaExtsBit),
 	( "reifyFixity",ITreifyFixity,	 bit glaExtsBit),
 
-	( "rec",	ITrec,		 bit glaExtsBit .|. bit arrowsBit),
-
 	( "foreign",	ITforeign,	 bit ffiBit),
 	( "export",	ITexport,	 bit ffiBit),
 	( "label",	ITlabel,	 bit ffiBit),
@@ -325,6 +323,7 @@ ghcExtensionKeywordsFM = listToUFM $
 
 	( "with",	ITwith,		 bit withBit),
 
+	( "rec",	ITrec,		 bit arrowsBit),
 	( "proc",	ITproc,		 bit arrowsBit),
 
 	-- On death row