[turn case of lambdas into let statments, don't strictify things in the renamer
John Meacham <john@repetae.net>**20060721133321] hunk ./E/SSimplify.hs 573
+        return $ eLet b' e d'
+    doCase e@ELam {} _ b [] (Just d) inb  = do
+        mtick "E.Simplify.case-lambda"
+        b' <- nname b inb
+        d' <- f d (insertDoneSubst b (EVar b') (insertInScope (tvrIdent b') (fixInline finalPhase b' $ isBoundTo Many e) inb))
hunk ./E/Traverse.hs 181
-        z (Left (tvr,x):rs) e | worthStricting x, Just (Demand.S _) <- Info.lookup (tvrInfo tvr)   = do
-            (n,tvrn) <- ntvr f' tvr
-            x' <- f x
-            nr <- localSubst [(n,EVar tvrn)]   (z rs e)
-            lift $ lift $  letToCaseRecord tOpt 1
-            return $ eStrictLet tvrn x' nr
+--        z (Left (tvr,x):rs) e | worthStricting x, Just (Demand.S _) <- Info.lookup (tvrInfo tvr)   = do
+--            (n,tvrn) <- ntvr f' tvr
+--            x' <- f x
+--            nr <- localSubst [(n,EVar tvrn)]   (z rs e)
+--            lift $ lift $  letToCaseRecord tOpt 1
+--            return $ eStrictLet tvrn x' nr