diff options
Diffstat (limited to 'lib/future.ml')
-rw-r--r-- | lib/future.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/future.ml b/lib/future.ml index b6cb498c6..c54b4e8db 100644 --- a/lib/future.ml +++ b/lib/future.ml @@ -50,7 +50,7 @@ and 'a computation = 'a comput ref let create f x = ref (Ongoing (Ephemeron.create (f, Pervasives.ref x))) let get x = match !x with - | Finished v -> (fun x -> x), ref( Val (v,None)) + | Finished v -> id, ref( Val (v,None)) | Ongoing x -> try Ephemeron.get x with Ephemeron.InvalidKey -> (fun x -> x), ref (Exn NotHere) |