[MLton-commit] r6714

[Matthew Fluet]

Change default value of '-show-types' to 'true'.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/control/control-flags.sml
===================================================================
--- mlton/trunk/mlton/control/control-flags.sml	2008-08-19 22:09:55 UTC (rev 6713)
+++ mlton/trunk/mlton/control/control-flags.sml	2008-08-19 22:10:01 UTC (rev 6714)
@@ -950,7 +950,7 @@
                           toString = Option.toString File.toString}
 
 val showTypes = control {name = "show types",
-                         default = false,
+                         default = true,
                          toString = Bool.toString}
 
 val ssaPassesSet : (optimizationPasses -> unit Result.t) ref = 

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2008-08-19 22:09:55 UTC (rev 6713)
+++ mlton/trunk/mlton/main/main.fun	2008-08-19 22:10:01 UTC (rev 6714)
@@ -678,7 +678,7 @@
         SpaceString (fn s => showBasis := SOME s)),
        (Normal, "show-def-use", " <file>", "write def-use information",
         SpaceString (fn s => showDefUse := SOME s)),
-       (Expert, "show-types", " {false|true}", "show types in ILs",
+       (Expert, "show-types", " {true|false}", "show types in ILs",
         boolRef showTypes),
        (Expert, "ssa-passes", " <passes>", "ssa optimization passes",
         SpaceString