[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / FiniteMap.lhs

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 3eab99e..d8c5989 100644 (file)
--- a/ghc/compiler/utils/FiniteMap.lhs
+++ b/ghc/compiler/utils/FiniteMap.lhs
@@ -25,6 +25,10 @@ near the end (only \tr{#ifdef COMPILING_GHC}).
 #define ASSERT(e) {--}
 #define IF_NOT_GHC(a) a
 #define COMMA ,
+#define _tagCmp compare
+#define _LT LT
+#define _GT GT
+#define _EQ EQ
 #endif
 
 #if defined(COMPILING_GHC) && defined(DEBUG_FINITEMAPS)/* NB NB NB */
@@ -73,8 +77,6 @@ IMP_Ubiq(){-uitous-}
 import Pretty
 # endif
 import Bag     ( foldBag )
-import {-hide from mkdependHS-}
-       Name    ( RdrName, OrigName )   -- specialising only
 
 # if ! OMIT_NATIVE_CODEGEN
 #  define IF_NCG(a) a