refactor(fiber): optimize ivar

Remove pattern match and function call when filling empty ivars Signed-off-by: Rudi Grinberg <me@rgrinberg.com> ps-id: a9642d29-4f12-401b-88f4-5ef7f7e2078d
ocaml · Jul 28, 2022 · ebc46c5 · ebc46c5
1 parent 165b42e
commit ebc46c5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/fiber/scheduler.ml b/src/fiber/scheduler.ml
@@ -23,7 +23,10 @@ module Jobs = struct
   let fill_ivar ivar x jobs =
     match ivar.state with
     | Full _ -> failwith "Fiber.Ivar.fill"
-    | (Empty | Empty_with_readers _) as readers ->
+    | Empty ->
+      ivar.state <- Full x;
+      jobs
+    | Empty_with_readers _ as readers ->
       ivar.state <- Full x;
       enqueue_readers readers x jobs