[fix bug in post-lambdalifting optimization where bound names might be reused by accident
John Meacham <john@repetae.net>**20070302091631] hunk ./Main.hs 625
-    rs' <- flip mapM (progCombinators prog) $ \ (t,ls,e) -> do
+    prog <- flip programMapBodies prog $ \ e -> do
hunk ./Main.hs 631
-        e' <- doopt (mangle' Nothing dataTable) False finalStats ("SuperSimplify: " ++ pprint t)  cm e
-        --e'' <- atomizeAp True dataTable stats e'
-        return (t,ls,e')
+        doopt (mangle' Nothing dataTable) False finalStats "PostLambdaLift"  cm e
hunk ./Main.hs 634
-    prog <- return $ prog { progCombinators = rs' }
-
-
hunk ./Main.hs 635
+    lintCheckProgram (putErrLn "LintPostLifting") prog