diff options
-rw-r--r-- | lib/future.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/future.ml b/lib/future.ml index 1f68061ef..b82948276 100644 --- a/lib/future.ml +++ b/lib/future.ml @@ -167,11 +167,12 @@ let transactify f x = let purify_future f x = if is_over x then f x else purify f x let compute x = purify_future (compute ~pure:false) x -let force x = purify_future (force ~pure:false) x +let force ~pure x = purify_future (force ~pure) x let chain ?(greedy=true) ~pure x f = let y = chain ~pure x f in - if is_over x && greedy then ignore(force y); + if is_over x && greedy then ignore(force ~pure y); y +let force x = force ~pure:false x let join kx = let v = force kx in |