[project @ 2002-10-10 14:20:54 by sof]

make it compile in non-DEBUG mode

diff --git a/ghc/compiler/coreSyn/Subst.lhs b/ghc/compiler/coreSyn/Subst.lhs
index b2e26c2..e2aded0 100644 (file)
--- a/ghc/compiler/coreSyn/Subst.lhs
+++ b/ghc/compiler/coreSyn/Subst.lhs
@@ -386,8 +386,8 @@ zipTyEnv tyvars tys
   | length tyvars /= length tys
   = pprTrace "mkTopTyVarSubst" (ppr tyvars $$ ppr tys) emptySubstEnv
   | otherwise
-  = zip_ty_env tyvars tys emptySubstEnv
 #endif
+  = zip_ty_env tyvars tys emptySubstEnv
 
 zip_ty_env []       []       env = env
 zip_ty_env (tv:tvs) (ty:tys) env = zip_ty_env tvs tys (extendSubstEnv env tv (DoneTy ty))