[don't interpret recursive letrec's bodies in lazy context unnecesarily
John Meacham <john@repetae.net>**20060814142729] hunk ./E/LambdaLift.hs 183
-            local (isStrict_s False) $ do
-                rs' <- flip mapM rs $ \te -> case te of
+            rs' <- local (isStrict_s False) $ do
+                flip mapM rs $ \te -> case te of
hunk ./E/LambdaLift.hs 192
-                h ds e' (rs' ++ ds')
+            h ds e' (rs' ++ ds')