[use travCollect from Util.Gen
John Meacham <john@repetae.net>**20070605014652] hunk ./C/Generate.hs 428
-travCollect' :: Monoid w => ((a -> Writer w a) -> a -> Writer w a) -> (a -> w) -> a -> w
-travCollect' fn col x = execWriter (f x) where
-    f x = tell (col x) >> fn f x
hunk ./C/Generate.hs 433
-        ul = Set.fromList $ Seq.toList $ Seq.foldMap (travCollect' stmtMapStmt g) stseq
+        ul = Set.fromList $ Seq.toList $ Seq.foldMap (travCollect stmtMapStmt g) stseq