Enable shortcutting of stack squeezing

[ghc-hetmet.git] / ghc / compiler / ndpFlatten / NDPCoreUtils.hs

diff --git a/ghc/compiler/ndpFlatten/NDPCoreUtils.hs b/ghc/compiler/ndpFlatten/NDPCoreUtils.hs
index 193f602..6e6b94f 100644 (file)
--- a/ghc/compiler/ndpFlatten/NDPCoreUtils.hs
+++ b/ghc/compiler/ndpFlatten/NDPCoreUtils.hs
@@ -84,7 +84,7 @@ funTyArgs  = splitFunTy
 
 -- for a type of the form `[:t:]', yield `t' (EXPORTED)
 --
--- * if the type has any other form, a fatal error occurs
+--  * if the type has any other form, a fatal error occurs
 --
 parrElemTy    :: Type -> Type
 parrElemTy ty  = 
@@ -100,7 +100,7 @@ parrElemTy ty  =
 -- make a tuple construction expression from a list of argument types and
 -- argument values (EXPORTED)
 --
--- * the two lists need to be of the same length
+--  * the two lists need to be of the same length
 --
 mkTuple                                  :: [Type] -> [CoreExpr] -> CoreExpr
 mkTuple []  []                            = Var unitDataConId
@@ -163,7 +163,6 @@ substIdEnv env (Let (Rec bnds) expr) =
      newExpr = substIdEnv newEnv expr 
      substBnd (b,e) = (b, substIdEnv newEnv e)      
    in Let (Rec (map substBnd bnds)) newExpr
--- gaw 2004
 substIdEnv env (Case expr b ty alts) =
    Case (substIdEnv newEnv expr) b ty (map substAlt alts)
    where