From cd0f89a0bf35c36575ea89d7c7599473a3600683 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 24 Jun 2003 10:01:27 +0000
Subject: [PATCH] [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.

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

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