Fix build warning and failing benchmark

miking-lang · Nov 13, 2023 · 9af3de6 · 9af3de6
1 parent 5345d9a
commit 9af3de6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/test/microbenchmark/run b/test/microbenchmark/run
@@ -1,2 +1,2 @@
 #!/bin/sh
-ocaml unix.cma run.ml $1 $2 $3 $4 $5
+ocaml -I +unix unix.cma run.ml $1 $2 $3 $4 $5
diff --git a/test/microbenchmark/split_rope.ml b/test/microbenchmark/split_rope.ml
@@ -5,6 +5,6 @@ let rec sum acc s =
     let t = Rope.sub_array s 1 (Rope.length_array s) in
     sum (acc + h) t
 
-let s = Rope.create 1000 (fun i -> i)
+let s = Rope.create_array 1000 (fun i -> i)
 
 let _ = Benchmarkcommon.repeat (fun () -> sum 0 s)