From d50c22757892ff62cf1078f22c5d1bb85449d17a Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Fri, 2 May 2025 10:51:46 -0400 Subject: [PATCH] perf: `await` on immediately ready timer queues its task --- src/core/worker_loop_.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/core/worker_loop_.ml b/src/core/worker_loop_.ml index 25bf4713..41fe34ba 100644 --- a/src/core/worker_loop_.ml +++ b/src/core/worker_loop_.ml @@ -83,8 +83,8 @@ let with_handler (type st arg) ~(ops : st ops) (self : st) : let fiber = get_current_fiber_exn () in (* when triggers is signaled, reschedule task *) if not (Picos.Fiber.try_suspend fiber trigger fiber k reschedule) then - (* trigger was already signaled, run task now *) - Picos.Fiber.resume fiber k) + (* trigger was already signaled, run task now *) + reschedule trigger fiber k) | Picos.Computation.Cancel_after _r -> Some (fun k ->