[MLton-commit] r6201

[Matthew Fluet]

Make allowOverload and deadCode expert annotations
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/control/control-flags.sml
===================================================================
--- mlton/trunk/mlton/control/control-flags.sml	2007-11-23 20:59:53 UTC (rev 6200)
+++ mlton/trunk/mlton/control/control-flags.sml	2007-11-24 15:52:51 UTC (rev 6201)
@@ -429,13 +429,13 @@
                        default = false, expert = true}, ac)
          val (allowOverload, ac) =
             makeBool ({name = "allowOverload", 
-                       default = false, expert = false}, ac)
+                       default = false, expert = true}, ac)
          val (allowRebindEquals, ac) =
             makeBool ({name = "allowRebindEquals", 
                        default = false, expert = true}, ac)
          val (deadCode, ac) =
             makeBool ({name = "deadCode", 
-                       default = false, expert = false}, ac)
+                       default = false, expert = true}, ac)
          val (forceUsed, ac) =
             make ({choices = NONE,
                    default = false,