[MLton-commit] r7506

[Matthew Fluet]

Fix description of the "-stop" compile flag.

Thanks to Baojian Hua for the bug report.


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

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

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

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2011-02-18 21:18:57 UTC (rev 7505)
+++ mlton/trunk/mlton/main/main.fun	2011-02-22 13:39:19 UTC (rev 7506)
@@ -737,7 +737,7 @@
                    Result.Yes () => ()
                  | Result.No s' => usage (concat ["invalid -ssa2-passes arg: ", s']))
           | NONE => Error.bug "ssa2 optimization passes missing")),
-       (Normal, "stop", " {f|g|o|sml|tc}", "when to stop",
+       (Normal, "stop", " {f|g|o|tc}", "when to stop",
         SpaceString
         (fn s =>
          stop := (case s of