From: Matthew F. <fl...@ml...> - 2011-05-03 12:00:09
|
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) |