diff --git a/src/core/task_local_storage.ml b/src/core/task_local_storage.ml index 12978926..4f5e5004 100644 --- a/src/core/task_local_storage.ml +++ b/src/core/task_local_storage.ml @@ -21,7 +21,7 @@ let get_opt k = let[@inline] get k ~default = match get_current_fiber () with - | None -> None + | None -> default | Some fiber -> PF.FLS.get fiber ~default k let[@inline] set k v : unit =