[move some optimizations around a little. don't perform spurious let coalesceing
John Meacham <john@repetae.net>**20060724060645] hunk ./E/FromHs.hs 197
-  mt <- Map.lookup name ds
+  mt <- case Map.lookup name ds of
+    Just x -> return x
+    Nothing -> fail $ "Could not find main function: " ++ show name
hunk ./Main.hs 270
-        mangle = mangle' (Just $ fromList inscope) fullDataTable
+        mangle = mangle' (Just namesInscope) fullDataTable
hunk ./Main.hs 276
-        lc <- coalesceLets stats lc
+        --lc <- coalesceLets stats lc
hunk ./Main.hs 359
-        mprog <- transformProgram tparms { transformCategory = "typeAnalyze", transformOperation = typeAnalyze True } mprog
hunk ./Main.hs 362
+        mprog <- transformProgram tparms { transformCategory = "typeAnalyze", transformOperation = typeAnalyze True } mprog