diff options
| author | gareuselesinge | 2013-08-09 12:41:22 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-08-09 12:41:22 +0000 |
| commit | fe727711d9d48b97505179c611d45cbbec6545ab (patch) | |
| tree | d7585cbc507e9afa0ba42cbc23aceb7d7d75e075 | |
| parent | e16d10ed9f5ae8922b9e2b6838baef4c6d75d492 (diff) | |
Fix batch compilation of scripts with Admitted proofs (in a section)
This time all collateral effects of forcing the execution
of dropped proofs should be handled correctly
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16692 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/stm.ml b/toplevel/stm.ml index 70343c216e..6b4c46d4ec 100644 --- a/toplevel/stm.ml +++ b/toplevel/stm.ml @@ -981,7 +981,7 @@ let join_aborted_proofs () = let view = VCS.visit id in match view.step with | `Qed ((_,VtDrop,_),eop) -> - observe eop; Proof_global.discard_all (); aux view.next + Future.purify observe eop; aux view.next | `Sideff _ | `Alias _ | `Cmd _ | `Fork _ | `Qed _ -> aux view.next in aux (VCS.get_branch_pos VCS.master) |