[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 (file)
--- 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