[MLton-commit] r6830

[Matthew Fluet]

Default option first for usage message.

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

U   mlton/trunk/mlton/control/control-flags.sml

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

Modified: mlton/trunk/mlton/control/control-flags.sml
===================================================================
--- mlton/trunk/mlton/control/control-flags.sml	2008-09-01 13:19:47 UTC (rev 6829)
+++ mlton/trunk/mlton/control/control-flags.sml	2008-09-01 13:19:51 UTC (rev 6830)
@@ -624,9 +624,10 @@
          Archive
        | Executable
        | Library
-      
-      val all = [Archive, Executable, Library]
-      
+
+      (* Default option first for usage message. *)
+      val all = [Executable, Archive, Library]
+
       val toString: t -> string =
         fn Archive => "archive"
          | Executable => "executable"