[MLton-commit] r4270

[Stephen Weeks]

Changed usage message for consistency with wiki.

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

U   mlton/trunk/mlton/main/main.fun

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

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2005-12-01 04:34:17 UTC (rev 4269)
+++ mlton/trunk/mlton/main/main.fun	2005-12-01 19:06:50 UTC (rev 4270)
@@ -427,7 +427,7 @@
          case !Control.ssa2PassesSet (OptPassesCustom s) of
             Result.Yes () => ()
           | Result.No s' => usage (concat ["invalid -ssa2-pass arg: ", s']))),
-       (Normal, "stop", " {f|g|o|sml|tc}", "where to stop",
+       (Normal, "stop", " {f|g|o|sml|tc}", "when to stop",
         SpaceString
         (fn s =>
          stop := (case s of