[MLton-commit] r5792

Matthew Fluet fluet at mlton.org
Wed Jul 25 21:01:04 PDT 2007


Alphabetizing controls
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/control/control-flags.sig
===================================================================
--- mlton/trunk/mlton/control/control-flags.sig	2007-07-26 03:46:30 UTC (rev 5791)
+++ mlton/trunk/mlton/control/control-flags.sig	2007-07-26 04:01:03 UTC (rev 5792)
@@ -153,12 +153,12 @@
 
       val inline: int ref
 
+      val inlineIntoMain: bool ref
+
       val inlineLeafSize: int option ref
       val inlineLeafLoops: bool ref
       val inlineLeafRepeat: bool ref
 
-      val inlineIntoMain: bool ref
-
       (* The input file on the command line, minus path and extension. *)
       val inputFile: File.t ref
 

Modified: mlton/trunk/mlton/control/control-flags.sml
===================================================================
--- mlton/trunk/mlton/control/control-flags.sml	2007-07-26 03:46:30 UTC (rev 5791)
+++ mlton/trunk/mlton/control/control-flags.sml	2007-07-26 04:01:03 UTC (rev 5792)
@@ -657,6 +657,10 @@
                       default = 60, 
                       toString = Int.toString}
 
+val inlineIntoMain = control {name = "inlineIntoMain",
+                              default = true,
+                              toString = Bool.toString}
+
 val inlineLeafLoops = control {name = "inlineLeafLoops",
                                default = true,
                                toString = Bool.toString}
@@ -669,10 +673,6 @@
                               default = SOME 20,
                               toString = Option.toString Int.toString}
 
-val inlineIntoMain = control {name = "inlineIntoMain",
-                              default = true,
-                              toString = Bool.toString}
-
 val inputFile = control {name = "input file",
                          default = "<bogus>",
                          toString = File.toString}




More information about the MLton-commit mailing list