From f1d1a25d571e790dbf63682f6fc99c5ce8296447 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 14 Jul 1999 15:28:08 +0000
Subject: [PATCH] [project @ 1999-07-14 15:28:08 by simonmar] pre-4.03 didn't
 have __HASKELL98__, use something else.

---
 ghc/compiler/utils/StringBuffer.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index f70500a..ae6d872 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -279,10 +279,10 @@ reAllocMem :: Addr -> Int -> IO Addr
 reAllocMem ptr sz = do
    chunk <- _ccall_ realloc ptr sz
    if chunk == nullAddr 
-#ifndef __HASKELL98__
-      then fail (userError "reAllocMem")
-#else
+#if __GLASGOW_HASKELL__ >= 400
       then fail "reAllocMem"
+#else
+      then fail (userError "reAllocMem")
 #endif
       else return chunk
 
-- 
1.7.10.4