[MLton-commit] r5309

[Matthew Fluet]

Catching up with changes merged from trunk.
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/mlton/atoms/word-x-vector.fun

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

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/atoms/word-x-vector.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/atoms/word-x-vector.fun	2007-02-25 14:46:08 UTC (rev 5308)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/atoms/word-x-vector.fun	2007-02-25 19:47:21 UTC (rev 5309)
@@ -39,9 +39,9 @@
                                        Char.fromInt (IntInf.toInt r) :: ac)
                               end
                      in
-                        (* Control.targetIsBigEndian is not always set, so
+                        (* Control.Target.bigEndian is not always set, so
                          * only use it if we really need to know the value. *)
-                        if n > 8 andalso Control.targetIsBigEndian ()
+                        if n > 8 andalso Control.Target.bigEndian ()
                         then rev (loop (n, WordX.toIntInf w, [])) @ ac
                         else loop (n, WordX.toIntInf w, []) @ ac
                      end)))