From 6af1c68b36ae0fcac79d42943cfc299b9870d4ce Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 24 Aug 1999 15:33:12 +0000
Subject: [PATCH] [project @ 1999-08-24 15:33:09 by simonmar] Add
 -D__HASKELL__=98

---
 ghc/docs/users_guide/using.vsgml |   23 ++++++++++++-----------
 ghc/driver/ghc.lprl              |    3 ++-
 2 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/ghc/docs/users_guide/using.vsgml b/ghc/docs/users_guide/using.vsgml
index b5b5a75..f0a435a 100644
--- a/ghc/docs/users_guide/using.vsgml
+++ b/ghc/docs/users_guide/using.vsgml
@@ -1169,24 +1169,25 @@ Specify a directory in which to look for @#include@ files, in
 the usual C way.
 </descrip>
 
-The @ghc@ driver pre-defines several macros:
+The @ghc@ driver pre-defines several macros when processing Haskell
+source code (@.hs@ or @.lhs@ files):
+
 <descrip>
 <tag>@__HASKELL98__@:</tag>
 <nidx>__HASKELL98__</nidx>
-If defined, this means that GHC supports the language
-defined by the Haskell 98 report.
+If defined, this means that GHC supports the language defined by the
+Haskell 98 report.
 
-NB. This macro is <em/only/ set when pre-processing Haskell source
-(ie. @.hs@ or @.lhs@ files).
+<tag>@__HASKELL__=98@:</tag>
+<nidx>__HASKELL__</nidx>
+In GHC 4.04 and later, the @__HASKELL__@ macro is defined as having
+the value @98@.
 
 <tag>@__HASKELL1__@:</tag>
 <nidx>__HASKELL1__ macro</nidx>
-If defined to <em/n/, that means GHC supports the
-Haskell language defined in the Haskell report version <em/1.n/.
-Currently 5.
-
-NB. As with <tt/__HASKELL98__/, this macro is <em/only/ set when
-pre-processing Haskell source (ie. @.hs@ or @.lhs@ files).
+If defined to <em/n/, that means GHC supports the Haskell language
+defined in the Haskell report version <em/1.n/.  Currently 5.  This
+macro is deprecated, and will probably disappear in future versions.
 
 <tag>@__GLASGOW_HASKELL__@:</tag>
 <nidx>__GLASGOW_HASKELL__ macro</nidx>
diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index b9d4ef2..d09be78 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -367,7 +367,8 @@ $Haskell1Version = 5; # i.e., Haskell 1.4
 # Cpp symbols defined when we're processing Haskell source.
 
 @HsSourceCppOpts = 
-	( "-D__HASKELL1__=$Haskell1Version"
+	( "-D__HASKELL__=98"
+	, "-D__HASKELL1__=$Haskell1Version"
 	, "-D__GLASGOW_HASKELL__=$ProjectVersionInt"
 	, "-D__HASKELL98__"
 	, "-D__CONCURRENT_HASKELL__"
-- 
1.7.10.4