Explicitly call to raise error from tail position

ocaml-multicore · Oct 14, 2024 · 2d1820f · 2d1820f
1 parent 49137c5
commit 2d1820f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/picos/picos.ocaml5.ml b/lib/picos/picos.ocaml5.ml
@@ -392,8 +392,8 @@ module Computation = struct
         -> unit Effect.t
 
   let cancel_after computation ~seconds exn bt =
-    if not (0.0 <= seconds) then error_negative_or_nan ();
-    Effect.perform (Cancel_after { seconds; exn; bt; computation })
+    if not (0.0 <= seconds) then error_negative_or_nan ()
+    else Effect.perform (Cancel_after { seconds; exn; bt; computation })
 
   (* BEGIN COMPUTATION COMMON *)