[clean up some code
John Meacham <john@repetae.net>**20051003074538] hunk ./Grin/FromE.hs 193
-    --(toAtom "CChar",([tCharzh],TyNode)),
-    --(toAtom "CInt",([tIntzh],TyNode)),
hunk ./Grin/FromE.hs 476
-    retIO v = Return (NodeC (toAtom "CPrelude.(,)") [pworld__,v])
+    retIO v = Return (NodeC tn_2Tup [pworld__,v])
hunk ./Grin/FromE.hs 601
-    addNewFunction tl@(n,Tup args :-> _) = do
+    addNewFunction tl@(n,Tup args :-> body) = do
hunk ./Grin/FromE.hs 605
+        --rb <- typecheck tenv body
hunk ./Grin/FromE.hs 770
-        Just cons = getConstructor n dataTable
+        cons = runIdentity $ getConstructor n dataTable
hunk ./Main.hs 275
-    --lc <- return $ ELetRec (concatMap (uncurry $ workWrap dataTable) ds) v
+    --lc <- return $ ELetRec (concatMap (uncurry $ workWrap dataTable) defs) v
+    --lc <- opt "SuperSimplify" cm lc