[MLton-commit] r6728

[Matthew Fluet]

Count types appearing in statement bindings for SSA IL stats.
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/ssa-tree.fun

----------------------------------------------------------------------

Modified: mlton/trunk/mlton/ssa/ssa-tree.fun
===================================================================
--- mlton/trunk/mlton/ssa/ssa-tree.fun	2008-08-19 22:11:33 UTC (rev 6727)
+++ mlton/trunk/mlton/ssa/ssa-tree.fun	2008-08-19 22:11:38 UTC (rev 6728)
@@ -1639,16 +1639,22 @@
                (functions, fn f =>
                 let
                    val {args, blocks, ...} = Function.dest f
-                in
-                   Vector.foreach (args, countType o #2)
-                   ; (Vector.foreach
-                      (blocks, fn Block.T {statements, ...} =>
-                       (Int.inc numBlocks
-                        ; (Vector.foreach
-                           (statements, fn Statement.T {ty, ...} =>
-                            (countType ty
-                             ; Int.inc numStatements))))))
-                end)
+                   val _ = Vector.foreach (args, countType o #2)
+                   val _ =
+                      Vector.foreach
+                      (blocks, fn Block.T {args, statements, ...} =>
+                       let
+                          val _ = Int.inc numBlocks
+                          val _ = Vector.foreach (args, countType o #2)
+                          val _ =
+                             Vector.foreach
+                             (statements, fn Statement.T {ty, ...} =>
+                              let
+                                 val _ = Int.inc numStatements
+                                 val _ = countType ty
+                              in () end)
+                       in () end)
+                in () end)
             val numFunctions = List.length functions
             val _ = destroy ()
             open Layout