[clean up grin dead function removal
John Meacham <john@repetae.net>**20051024092736] hunk ./Grin/DeadFunctions.hs 102
-    replicateM_ (length (grinFunctions grin) - length reach) $ tick stats $ (toAtom "Optimize.dead-function")
-    --CharIO.putStr "Dead Functions: "
-    --CharIO.print [ a | (a,_) <- grinFunctions grin, not $ a `Set.member` rs ]
-    --mapM cleanupDeadArgs
-    --let f n | null $ functionUnusedArgs n = ""
-    --        | otherwise = show (functionName n) ++ show (functionUnusedArgs n) ++ "\n"
-    --mapM (CharIO.putStr . f) reach
-    when (not $ null uuc) $ do
-        replicateM_ (length uuc) $ tick stats $ (toAtom "Optimize.caf-cleanup")
-        --CharIO.putStr "Dead Cafs: "
-        --CharIO.print uuc
-    --mapM_ CharIO.print reach
+    ticks stats (length (grinFunctions grin) - length reach) (toAtom "Optimize.dead.function")
+    ticks stats (length uuc) (toAtom "Optimize.dead.caf")
hunk ./Grin/DeadFunctions.hs 110
-{-
-class  FixIn b a | b -> a where
-    getSafeDependencies :: Maybe (b -> [a])
-    getSafeDependencies = Nothing
--}
-
hunk ./Grin/DeadFunctions.hs 142
-        tick stats $ toAtom "Optimize.rec-dead-arg"
+        tick stats $ toAtom "Optimize.dead.rec-arg"
hunk ./Grin/DeadFunctions.hs 170
-            tick stats $ toAtom "Optimize.dead-arg"
+            tick stats $ toAtom "Optimize.dead.arg"
hunk ./Grin/FromE.hs 97
-    print (grinPhase grin)