diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 24149a98e7..effd6f9afb 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1300,7 +1300,7 @@ let solvable_by_tactic env evi (ev,args) src = begin try by (tclCOMPLETE tac); - let _,(const,_,_) = cook_proof () in + let _,(const,_,_) = cook_proof ignore in delete_current_proof (); const.const_entry_body with e when Logic.catchable_exception e -> delete_current_proof(); diff --git a/tactics/tactics.ml b/tactics/tactics.ml index fa40e16514..6119185438 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2691,7 +2691,7 @@ let abstract_subproof name tac gl = let _,(const,kind,_) = try by (tclCOMPLETE (tclTHEN (tclDO (List.length sign) intro) tac)); - let r = cook_proof () in + let r = cook_proof ignore in delete_current_proof (); r with e -> |