From 65bc483d27128d434edc876faaa70cfa7f8dd2d3 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 14 Mar 2001 15:21:25 +0000
Subject: [PATCH] [project @ 2001-03-14 15:21:25 by simonpj] Remove dead code,
 and fix fvs1 -> fvs2 in coreTopBindsToStg

---
 ghc/compiler/stgSyn/CoreToStg.lhs |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index b877b76..0bc76d9 100644
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -127,7 +127,7 @@ pairs.
 coreToStg :: DynFlags -> [CoreBind] -> IO [StgBinding]
 coreToStg dflags pgm
   = return pgm'
-  where (env', fvs, pgm') = coreTopBindsToStg emptyVarEnv pgm
+  where (_, _, pgm') = coreTopBindsToStg emptyVarEnv pgm
 
 coreExprToStg :: CoreExpr -> StgExpr
 coreExprToStg expr 
@@ -141,7 +141,7 @@ coreTopBindsToStg
 
 coreTopBindsToStg env [] = (env, emptyFVInfo, [])
 coreTopBindsToStg env (b:bs)
-  = (env2, fvs1, b':bs')
+  = (env2, fvs2, b':bs')
   where
 	-- env accumulates down the list of binds, fvs accumulates upwards
 	(env1, fvs2, b' ) = coreTopBindToStg env fvs1 b
@@ -230,9 +230,6 @@ coreToStgRhs scope_fv_info top (binder, rhs)
   where
     binder_info = lookupFVInfo scope_fv_info binder
 
-bogus_rhs = StgRhsClosure noCCS noBinderInfo [] ReEntrant [] bogus_expr
-bogus_expr = (StgLit (MachInt 1))
-
 mkStgRhs :: TopLevelFlag -> FreeVarsInfo -> StgBinderInfo
 	 -> StgExpr -> StgRhs
 
-- 
1.7.10.4