Update to latest fiber

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

Author: rgrinberg

fiber-test/fiber_test.ml

@@ -43,7 +43,8 @@ let test ?(expect_never = false) to_dyn f =
   let never_raised = ref false in
   let f =
     let on_error exn =
-      Format.eprintf "%a@." Exn_with_backtrace.pp_uncaught exn
+      Format.eprintf "%a@." Exn_with_backtrace.pp_uncaught exn;
+      Fiber.return ()
     in
     Fiber.with_error_handler (fun () -> f) ~on_error
   in

fiber-unix/src/fiber_detached.ml

@@ -1,5 +1,3 @@
-module Fiber_detached = Fiber_detached
-module Fiber_stream = Fiber_stream
 module Scheduler = Scheduler
 
 module Private = struct

fiber-unix/src/fiber_detached.mli

@@ -1,12 +1,12 @@
 open! Import
 open Fiber.O
 module S = Fiber_unix.Scheduler
-module Fiber_detached = Fiber_unix.Fiber_detached
 
 let test s f =
   let f =
     Fiber.with_error_handler f ~on_error:(fun exn ->
-        Format.printf "%a@." Exn_with_backtrace.pp_uncaught exn)
+        Format.printf "%a@." Exn_with_backtrace.pp_uncaught exn;
+        Fiber.return ())
   in
   S.run s f
 
@@ -162,13 +162,13 @@ let%expect_test "tests rescheduling" =
 
 let%expect_test "detached + timer" =
   let s = S.create () in
-  let detached = Fiber_detached.create () in
+  let detached = Fiber.Pool.create () in
   let timer = S.create_timer s ~delay:0.05 in
   let run () =
     Fiber.fork_and_join_unit
       (fun () ->
         let* () =
-          Fiber_detached.task_exn detached ~f:(fun () ->
+          Fiber.Pool.task detached ~f:(fun () ->
               let* res =
                 S.schedule timer (fun () ->
                     print_endline "inside timer";
@@ -178,8 +178,8 @@ let%expect_test "detached + timer" =
               | Ok () -> Fiber.return (print_endline "timer finished")
               | Error `Cancelled -> assert false)
         in
-        Fiber_detached.stop detached)
-      (fun () -> Fiber_detached.run detached)
+        Fiber.Pool.stop detached)
+      (fun () -> Fiber.Pool.run detached)
   in
   test s run;
   [%expect {|