[MLton-commit] r7391

[Wesley Terpstra]

Just as TARGET_ARCH and TARGET_OS are useful in an mlb file, so too TARGET.


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

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

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

Modified: mlton/trunk/mlton/control/control-flags.sml
===================================================================
--- mlton/trunk/mlton/control/control-flags.sml	2010-01-07 22:13:30 UTC (rev 7390)
+++ mlton/trunk/mlton/control/control-flags.sml	2010-01-07 22:14:16 UTC (rev 7391)
@@ -975,6 +975,8 @@
 
 structure Target =
    struct
+      open Target
+      
       datatype arch = datatype MLton.Platform.Arch.t
          
       val arch = control {name = "target arch",
@@ -1028,6 +1030,8 @@
       (List.concat
           [[{var = "LIB_MLTON_DIR",
              path = !libDir},
+            {var = "TARGET",
+             path = Target.toString (!target)},
             {var = "TARGET_ARCH",
              path = String.toLower (MLton.Platform.Arch.toString
                                     (!Target.arch))},