From 43732086e664ff1fe59617a673e82cab6464c5e1 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 25 Apr 2014 18:02:27 +0200 Subject: Future: memory optimization when forcing a chained pure computation Kudos to PMP for spotting that! --- lib/future.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/future.ml') 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 -- cgit v1.2.3