[MLton-commit] r7528

Matthew Fluet fluet at mlton.org
Tue May 3 12:00:08 PDT 2011


Rename 'decIsWild' predicate to 'decIsWildOrUnit'.
----------------------------------------------------------------------

U   mlton/trunk/mlton/core-ml/dead-code.fun

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

Modified: mlton/trunk/mlton/core-ml/dead-code.fun
===================================================================
--- mlton/trunk/mlton/core-ml/dead-code.fun	2011-05-03 19:00:05 UTC (rev 7527)
+++ mlton/trunk/mlton/core-ml/dead-code.fun	2011-05-03 19:00:07 UTC (rev 7528)
@@ -25,7 +25,7 @@
                                          then escape true
                                       else ())
            ; false))
-      fun decIsWild (d: Dec.t): bool =
+      fun decIsWildOrUnit (d: Dec.t): bool =
          case d of
             Val {rvbs, vbs, ...} =>
                0 = Vector.length rvbs
@@ -66,7 +66,7 @@
           in
              if deadCode
                 then List.fold (rev decs, [], fn (dec, decs) =>
-                                if decIsWild dec orelse decIsNeeded dec
+                                if decIsWildOrUnit dec orelse decIsNeeded dec
                                    then (useDec dec; dec :: decs)
                                    else decs)
                 else (List.foreach (decs, useDec)




More information about the MLton-commit mailing list