diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 58eb2e21d8..2365e2bdbd 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -274,7 +274,7 @@ let close_proof ~now fpl = const_entry_inline_code = false; const_entry_opaque = true }) fpl initial_goals in if now then - List.iter (fun x -> ignore(Future.join x.Entries.const_entry_body)) entries; + List.iter (fun x -> ignore(Future.compute x.Entries.const_entry_body)) entries; (pid, (entries, compute_guard, strength, hook)) let return_proof ~fix_exn = @@ -293,7 +293,7 @@ let return_proof ~fix_exn = let close_future_proof proof = close_proof ~now:false proof let close_proof () = - close_proof ~now:true (Future.from_val (return_proof ~fix_exn:(fun x -> x))) + close_proof ~now:true (Future.from_here (return_proof ~fix_exn:(fun x -> x))) (**********************************************************) (* *) |