[MLton-commit] r7139

[Matthew Fluet]

But introduced in r6636; using geu excludes SeqIndex.maxLen'; using gtu includes SeqIndex.maxLen'.
----------------------------------------------------------------------

U   mlton/trunk/basis-library/arrays-and-vectors/sequence.fun

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

Modified: mlton/trunk/basis-library/arrays-and-vectors/sequence.fun
===================================================================
--- mlton/trunk/basis-library/arrays-and-vectors/sequence.fun	2009-06-12 16:19:07 UTC (rev 7138)
+++ mlton/trunk/basis-library/arrays-and-vectors/sequence.fun	2009-06-12 16:22:21 UTC (rev 7139)
@@ -139,7 +139,7 @@
          if not S.isMutable andalso n = 0
             then Array.array0Const ()
             else if Primitive.Controls.safe
-                    andalso geu (n, maxLen')
+                    andalso gtu (n, maxLen')
                     then raise Size
                     else Array.arrayUnsafe n
       fun arrayUninit n = arrayUninit' (fromIntForLength n)