3da179a6ce0c — Chris Cannam 7 months ago
Build fixes
2 files changed, 3 insertions(+), 3 deletions(-)

M array-qsort.sml
M sml-smlnj-containers.mlb
M array-qsort.sml +2 -2
@@ 15,8 15,8 @@ structure ArrayQSort : ARRAY_SORT =
 
     type 'a array = 'a A.array
 
-    val sub = Unsafe.Array.sub
-    val update = Unsafe.Array.update
+    val sub = A.sub
+    val update = A.update
 
     fun isort (array, start, n, cmp) = let
           fun item i = sub(array,i)

          
M sml-smlnj-containers.mlb +1 -1
@@ 18,7 18,7 @@ listsort-sig.sml
 list-mergesort.sml
 array-sort-sig.sml
 array-qsort.sml
+mono-array-sort-sig.sml
 array-qsort-fn.sml
-mono-array-sort-sig.sml