diff options
| author | msozeau | 2010-03-08 16:44:25 +0000 |
|---|---|---|
| committer | msozeau | 2010-03-08 16:44:25 +0000 |
| commit | 36336da170e42473ef72d09b5fae76c25cfa0ccc (patch) | |
| tree | 3c2e3e9da9f0ccaa19d046050265f9b81e3a4412 /proofs/logic.ml | |
| parent | cd798e8cb6f2f5123d61de10172b9dbbcb46f86f (diff) | |
Consider OccurCheck a catchable exception.
Fix minor bug in Program wellfounded definitions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12853 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index f0f03febb1..11155d3698 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -58,7 +58,7 @@ let rec catchable_exception = function (* unification errors *) | PretypeError(_,(CannotUnify _|CannotUnifyLocal _|CannotGeneralize _ |NoOccurrenceFound _|CannotUnifyBindingType _|NotClean _ - |CannotFindWellTypedAbstraction _ + |CannotFindWellTypedAbstraction _|OccurCheck _ |UnsolvableImplicit _)) -> true | Typeclasses_errors.TypeClassError (_, Typeclasses_errors.UnsatisfiableConstraints _) -> true |