[don't iterate atomizeAps as it is idempotent, perform full eta analysis when processing initial ho file
John Meacham <john@repetae.net>**20060323044415] hunk ./Main.hs 170
-        Identity ds' = annotateDs mempty (\_ nfo -> return nfo) letann lamann ds
-        Identity ds'' = annotateDs mempty (\_ nfo -> return nfo) letann lamann ds'
-    return ho { hoEs = Map.fromList [ (runIdentity $ fromId (tvrIdent v),d) |  d@(v,_) <- ds'' ] }
+        ds' = programDs $ etaAnnotateProgram (programSetDs ds program)
+    return ho { hoEs = Map.fromList [ (runIdentity $ fromId (tvrIdent v),d) |  d@(v,_) <- ds' ] }
hunk ./Main.hs 234
-        lc <- doopt mangle False stats "FixupLets..." (\stats x -> atomizeAp False fullDataTable stats (progModule prog) x >>= coalesceLets stats)  lc
+        lc <- atomizeAp False fullDataTable stats (progModule prog) lc -- doopt mangle False stats "FixupLets..." (\stats x -> atomizeAp False fullDataTable stats (progModule prog) x >>= coalesceLets stats)  lc
+        lc <- coalesceLets stats lc