aboutsummaryrefslogtreecommitdiffhomepage
path: root/proofs
diff options
context:
space:
mode:
authorGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2014-02-10 17:41:01 +0100
committerGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2014-02-10 18:04:10 +0100
commit98041625b841bad9bdc37329279cf84c2e9701b3 (patch)
tree5c07b1919ad82fbc0f417cb7d544aa36459c53ac /proofs
parentc50d3830ae92735383e201e72b499b8bff0918c7 (diff)
STM: fix valid_id coming from Qed errors
Diffstat (limited to 'proofs')
-rw-r--r--proofs/proof_global.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index 002810cda..bbe8ad531 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