From: sof <unknown>
Date: Thu, 10 Oct 2002 14:20:54 +0000 (+0000)
Subject: [project @ 2002-10-10 14:20:54 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1575
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1ae4f09df15f92c8a069eec3fbd3403ccc44f4f0;p=ghc-hetmet.git

[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
--- 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))