From 0b288985865c0438458b38e24c8753d88a0320f0 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 13 Nov 2025 19:39:57 -0500 Subject: [PATCH] rename --- src/core/main.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/core/main.ml b/src/core/main.ml index 9325fd3a..55d00d7e 100644 --- a/src/core/main.ml +++ b/src/core/main.ml @@ -8,15 +8,15 @@ let main' ?(block_signals = false) () (f : Runner.t -> 'a) : 'a = in let runner = Fifo_pool.Private_.runner_of_state worker_st in try - let fiber = Fut.spawn ~on:runner (fun () -> f runner) in - Fut.on_result fiber (fun _ -> Runner.shutdown_without_waiting runner); + let fut = Fut.spawn ~on:runner (fun () -> f runner) in + Fut.on_result fut (fun _ -> Runner.shutdown_without_waiting runner); (* run the main thread *) Worker_loop_.worker_loop worker_st ~block_signals (* do not disturb existing thread *) ~ops:Fifo_pool.Private_.worker_ops; - match Fut.peek fiber with + match Fut.peek fut with | Some (Ok x) -> x | Some (Error ebt) -> Exn_bt.raise ebt | None -> assert false