From d18e88a772d0ad3a6a7fde5061ac603fc076a06f Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 17 Jul 2023 10:54:47 -0400 Subject: [PATCH] details in test --- test/effect-based/t_fib_fork_join_all.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/test/effect-based/t_fib_fork_join_all.ml b/test/effect-based/t_fib_fork_join_all.ml index 7df4085c..e1ae83f4 100644 --- a/test/effect-based/t_fib_fork_join_all.ml +++ b/test/effect-based/t_fib_fork_join_all.ml @@ -1,5 +1,7 @@ [@@@ifge 5.0] +let ( let@ ) = ( @@ ) + open Moonpool let rec fib_direct x = @@ -9,6 +11,7 @@ let rec fib_direct x = fib_direct (x - 1) + fib_direct (x - 2) let rec fib x : int = + (* some cutoff for sequential computation *) if x <= 18 then fib_direct x else ( @@ -19,13 +22,13 @@ let rec fib x : int = ) let fib_40 : int = - let pool = Pool.create ~min:8 () in + let@ pool = Pool.with_ ~min:8 () in Fut.spawn ~on:pool (fun () -> fib 40) |> Fut.wait_block_exn let () = Printf.printf "fib 40 = %d\n%!" fib_40 let run_test () = - let pool = Pool.create ~min:8 () in + let@ pool = Pool.with_ ~min:8 () in let fut = Fut.spawn ~on:pool (fun () ->