1 (* Copyright (C
) 1999-2005 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
4 * MLton is released under a BSD
-style license
.
5 * See the file MLton
-LICENSE for details
.
9 Array (open Pervasive
.Array
12 val unsafeSub
= Unsafe
.Array
.sub
13 val unsafeUpdate
= Unsafe
.Array
.update
14 val unfoldi
= MLton
.Array
.unfoldi
)
16 functor MonoArray (Elt
: T
) =
20 val equals
= fn (a
, a
') => equals (a
, a
', Elt
.equals
)
21 val layout
= layout Elt
.layout