diff options
author | 2010-01-04 14:06:05 +0000 | |
---|---|---|
committer | 2010-01-04 14:06:05 +0000 | |
commit | c7f63628e3659cc95235c71402c43b50aef3893d (patch) | |
tree | d2211ac6efb49e0aa5eba20b4ea4b17d0f63e693 /proofs/logic.ml | |
parent | f3979966ec7d1e5c13fd77e2d19856a3dd2e7a3f (diff) |
Errors issued by reduction tactics (e.g. pattern) were not caught by "try".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12621 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
-rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 0fbd8ad21..f0f03febb 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -53,6 +53,8 @@ let rec catchable_exception = function | Util.UserError _ | TypeError _ | RefinerError _ | Indrec.RecursionSchemeError _ | Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _) + (* reduction errors *) + | Tacred.ReductionTacticError _ (* unification errors *) | PretypeError(_,(CannotUnify _|CannotUnifyLocal _|CannotGeneralize _ |NoOccurrenceFound _|CannotUnifyBindingType _|NotClean _ |