diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-23 15:14:14 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-23 15:14:14 +0000 |
| commit | e86ea2b51a9f10a0065416e6ec0f49f649129d83 (patch) | |
| tree | fac1cd3ca1c75a2e59fc4b21996c011f9ecfc9fa /toplevel/vernacentries.ml | |
| parent | e3fa43b82f5deb61faf2dddca01e7f1576abb352 (diff) | |
correct abort in Function when a proof of inversion fails
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15239 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 3652e2a6b..22ac6e90c 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -745,14 +745,13 @@ let vernac_chdir = function (********************) (* State management *) -let abort_refine f x = - if Pfedit.refining() then delete_all_proofs (); - f x - (* used to be: error "Must save or abort current goal first" *) +let vernac_write_state file = + Pfedit.delete_all_proofs (); + States.extern_state file -let vernac_write_state file = abort_refine States.extern_state file - -let vernac_restore_state file = abort_refine States.intern_state file +let vernac_restore_state file = + Pfedit.delete_all_proofs (); + States.intern_state file (************) (* Commands *) |