chore: repair build of benchmarks, fix warnings

Makefile

@@ -13,10 +13,15 @@ clean:
 doc:
 	@dune build @doc
 
-BENCH_TARGETS=bench_persistent_read.exe bench_persistent.exe
+BENCH_TARGETS= benchs.exe bench_persistent_read.exe bench_persistent.exe
 
 benchs:
-	dune build $(addprefix bench/, $(BENCH_TARGETS))
+	@for i in $(BENCH_TARGETS) ; do \
+	  echo "run benchmark $$i" ; \
+	  dune exec "src/bench/$$i" ; done
+
+build-benchs:
+	@dune build $(addprefix src/bench/, $(BENCH_TARGETS))
 
 examples:
 	dune build examples/test_sexpr.exe

bench/jbuild

@@ -1,8 +0,0 @@
-
-(executables
-  ((names (bench_persistent_read bench_persistent))
-   (libraries (sequence benchmark))
-   (flags (:standard -w +a-4-42-44-48-50-58-32-60@8 -safe-string -color always))
-   (ocamlopt_flags (:standard -O3 -color always
-                    -unbox-closures -unbox-closures-factor 20))
-  ))

src/bench/bench_persistent.ml

@@ -93,21 +93,21 @@ let persistent_mlist seq =
   MList.to_seq l
 
 let bench_mlist n =
-  for i = 0 to 100 do
+  for _i = 0 to 100 do
-    let _ = persistent_mlist Sequence.(1 -- n) in
+    let _ = persistent_mlist Iter.(1 -- n) in
     ()
   done
 
 let bench_naive n =
-  for i = 0 to 100 do
+  for _i = 0 to 100 do
-    let l = Sequence.to_rev_list Sequence.(1 -- n) in
+    let l = Iter.to_rev_list Iter.(1 -- n) in
-    let _ = Sequence.of_list (List.rev l) in
+    let _ = Iter.of_list (List.rev l) in
     ()
   done
 
 let bench_current n =
-  for i = 0 to 100 do
+  for _i = 0 to 100 do
-    let _ = Sequence.persistent Sequence.(1 -- n) in
+    let _ = Iter.persistent Iter.(1 -- n) in
     ()
   done
 

src/bench/bench_persistent_read.ml

@@ -93,26 +93,26 @@ let persistent_mlist seq =
   MList.to_seq l
 
 let bench_mlist n =
-  persistent_mlist Sequence.(1 -- n)
+  persistent_mlist Iter.(1 -- n)
 
 let bench_list n =
-  let l = Sequence.to_rev_list Sequence.(1 -- n) in
+  let l = Iter.to_rev_list Iter.(1 -- n) in
-  Sequence.of_list (List.rev l)
+  Iter.of_list (List.rev l)
 
 let bench_naive n =
-  let s = Sequence.(1 -- n) in
+  let s = Iter.(1 -- n) in
-  Sequence.iter ignore s ;
+  Iter.iter ignore s ;
   s
 
 let bench_current n =
-  Sequence.persistent Sequence.(1 -- n)
+  Iter.persistent Iter.(1 -- n)
 
 let bench_array n =
-  let a = Sequence.to_array Sequence.(1 -- n) in
+  let a = Iter.to_array Iter.(1 -- n) in
-  Sequence.of_array a
+  Iter.of_array a
 
 let read s =
-  Sequence.map (fun x -> x + 1) s
+  Iter.map (fun x -> x + 1) s
 
 let () =
   let bench_n n =

src/bench/benchs.ml

@@ -1,6 +1,6 @@
 
-module S = Sequence
+module S = Iter
-open Sequence.Infix
+open Iter.Infix
 
 let small = [10;20;50;100;500]
 let medium = small @ [1000;10_000;100_000]

src/bench/dune

@@ -0,0 +1,8 @@
+
+(executables
+  (names bench_persistent_read bench_persistent benchs)
+  (libraries iter benchmark)
+  (flags :standard -w +a-4-42-44-48-50-58-32-60@8 -safe-string -color always)
+  (ocamlopt_flags :standard -O3 -color always
+                  -unbox-closures -unbox-closures-factor 20)
+  )

src/bench/simple_bench.ml

@@ -1,11 +1,11 @@
 
-open Sequence.Infix
+open Iter.Infix
 
 let _ =
   let n = int_of_string Sys.argv.(1) in
   let seq = 0 -- n in
   let start = Unix.gettimeofday () in
-  seq |> Sequence.persistent |> Sequence.fold (+) 0 |> ignore;
+  seq |> Iter.persistent |> Iter.fold (+) 0 |> ignore;
   let stop = Unix.gettimeofday () in
   Format.printf "iter on %d: %.4f@." n (stop -. start);
   ()