simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 03:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix

Browse source
This commit is contained in:
Simon Cruanes 2024-03-01 14:58:28 -05:00
parent 4195d4d61c
commit 9d392b1ba6
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/fib/fiber.ml
View file

@ -207,9 +207,9 @@ let spawn_link ?protect f : _ t =
| Some (Any parent) -> spawn_link_ ?protect parent f | Some (Any parent) -> spawn_link_ ?protect parent f
let spawn_top_or_link ?protect ~on f : _ t = let spawn_top_or_link ?protect ~on f : _ t =
match Task_local_storage.get k_current_fiber with match Task_local_storage.get_opt k_current_fiber with
| None -> spawn_top ~on f | Some (Some (Any parent)) -> spawn_link_ ?protect parent f
| Some (Any parent) -> spawn_link_ ?protect parent f | None | Some None -> spawn_top ~on f
type cancel_handle = int type cancel_handle = int