diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 002810cdab..bbe8ad5316 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -301,7 +301,7 @@ let close_proof ?feedback_id ~now fpl = 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.force x.Entries.const_entry_body)) entries; { id = pid; entries = entries; persistence = strength }, Ephemeron.get terminator |