[MLton-commit] r6704

[Matthew Fluet]

Fix typo in 'Control.Target.os'
----------------------------------------------------------------------

U   mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun
U   mlton/trunk/mlton/codegen/x86-codegen/x86.fun

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

Modified: mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun
===================================================================
--- mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun	2008-08-19 16:47:15 UTC (rev 6703)
+++ mlton/trunk/mlton/codegen/amd64-codegen/amd64.fun	2008-08-19 16:54:50 UTC (rev 6704)
@@ -3158,7 +3158,7 @@
                    val macho = seq [str ".private_extern", Label.layout l]
                    val coff = seq [str "/*", str ".hidden", Label.layout l, str "*/"]
                 in
-                   case !Control.Target os of
+                   case !Control.Target.os of
                       MLton.Platform.OS.Cygwin => coff
                     | MLton.Platform.OS.Darwin => macho
                     | MLton.Platform.OS.MinGW => coff

Modified: mlton/trunk/mlton/codegen/x86-codegen/x86.fun
===================================================================
--- mlton/trunk/mlton/codegen/x86-codegen/x86.fun	2008-08-19 16:47:15 UTC (rev 6703)
+++ mlton/trunk/mlton/codegen/x86-codegen/x86.fun	2008-08-19 16:54:50 UTC (rev 6704)
@@ -3359,7 +3359,7 @@
                    val macho = seq [str ".private_extern", Label.layout l]
                    val coff = seq [str "/*", str ".hidden", Label.layout l, str "*/"]
                 in
-                   case !Control.Target os of
+                   case !Control.Target.os of
                       MLton.Platform.OS.Cygwin => coff
                     | MLton.Platform.OS.Darwin => macho
                     | MLton.Platform.OS.MinGW => coff