bench/bench_copy.ml

@@ -23,7 +23,7 @@ let run_client sock =
     )
 
 let time name service =
-  Switch.run ~name @@ fun sw ->
+  Switch.run @@ fun sw ->
   let client_sock, server_sock = Eio_unix.Net.socketpair_stream ~sw () in
   let t0 = Unix.gettimeofday () in
   Fiber.both

lib_eio/core/fiber.ml

@@ -69,22 +69,11 @@ let fork_promise_exn ~sw f =
     );
   p
 
-(* Like [List.iter (fork ~sw)], but runs the last one in the current fiber
-   for efficiency and less cluttered traces. *)
-let rec forks ~sw = function
-  | [] -> ()
-  | [x] -> Switch.check sw; x ()
-  | x :: xs ->
-    fork ~sw x;
-    forks ~sw xs
-
 let all xs =
   Switch.run ~name:"all" @@ fun sw ->
-  forks ~sw xs
+  List.iter (fork ~sw) xs
 
-let both f g =
-  Switch.run ~name:"both" @@ fun sw ->
-  forks ~sw [f; g]
+let both f g = all [f; g]
 
 let pair f g =
   Switch.run ~name:"pair" @@ fun sw ->