diff options
| author | notin | 2007-02-06 19:50:49 +0000 |
|---|---|---|
| committer | notin | 2007-02-06 19:50:49 +0000 |
| commit | 518b8d493506137e5a4dea07a8ab33c21b8b4294 (patch) | |
| tree | 69944683bdbd170a4a9aa949aa45e02ebb9ae6c5 | |
| parent | d41159a95f2e1c0d610079d462d77a8c80925ae1 (diff) | |
Report de la révision 9599 de la v8.1 dans le trunk
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9600 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tactics.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index aeb8b4e50b..282e417c33 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2480,8 +2480,11 @@ let abstract_subproof name tac gls = by (tclCOMPLETE (tclTHEN (tclDO (List.length sign) intro) tac)); let r = cook_proof () in delete_current_proof (); r - with e when catchable_exception e -> - (delete_current_proof(); raise e) + with + e when catchable_exception e -> + (delete_current_proof(); raise e) + | FailError (0,_) as e -> + (delete_current_proof(); raise e) in (* Faudrait un peu fonctionnaliser cela *) let cd = Entries.DefinitionEntry const in let con = Declare.declare_internal_constant na (cd,IsProof Lemma) in |