[project @ 1998-04-10 15:00:19 by simonpj]

[ghc-hetmet.git] / ghc / compiler / specialise / SpecEnv.lhs

diff --git a/ghc/compiler/specialise/SpecEnv.lhs b/ghc/compiler/specialise/SpecEnv.lhs
index 04ae01a..fb6b23c 100644 (file)
--- a/ghc/compiler/specialise/SpecEnv.lhs
+++ b/ghc/compiler/specialise/SpecEnv.lhs
@@ -96,14 +96,7 @@ lookupSpecEnv doc (SpecEnv alist) key
   where
     find [] = Nothing
     find ((tpl, val) : rest)
-      = 
-#ifdef DEBUG
-       if length tpl > length key then
-               pprTrace "lookupSpecEnv" (doc <+> ppr tpl <+> ppr key) $
-               Nothing
-       else
-#endif
-       case matchTys tpl key of
+      = case matchTys tpl key of
          Nothing                 -> find rest
          Just (subst, leftovers) -> ASSERT( null leftovers )
                                     Just (subst, val)