[project @ 2003-02-18 09:57:19 by simonmar]

Fix build on GHC < 5.00

diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs
index 152f2e7..efb3c6a 100644 (file)
--- a/ghc/compiler/utils/Panic.lhs
+++ b/ghc/compiler/utils/Panic.lhs
@@ -37,7 +37,6 @@ import CONCURRENT     ( myThreadId )
 
 # if __GLASGOW_HASKELL__ < 500
 import EXCEPTION        ( raiseInThread )
-#define throwTo  raiseInThread
 # else
 import EXCEPTION       ( throwTo )
 # endif