diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-30 16:55:46 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-30 16:55:46 +0000 |
| commit | cae025c40c270a23ffef489d855346dd86944aa6 (patch) | |
| tree | 0c807e2b7edc420ee89cf928619adb21232d6b35 /parsing/pattern.ml | |
| parent | 69953ca730d5f05ce3925273ae6e8018aa564959 (diff) | |
Priorite du Try/Orelse + Debug switch + correction bug dans Pattern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@785 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pattern.ml')
| -rw-r--r-- | parsing/pattern.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parsing/pattern.ml b/parsing/pattern.ml index 176903cb2..3db193625 100644 --- a/parsing/pattern.ml +++ b/parsing/pattern.ml @@ -162,7 +162,8 @@ let matches_core convert pat c = | PSort RType, IsSort (Type _) -> sigma | PApp (c1,arg1), IsApp (c2,arg2) -> - array_fold_left2 (sorec stk) (sorec stk sigma c1 c2) arg1 arg2 + (try array_fold_left2 (sorec stk) (sorec stk sigma c1 c2) arg1 arg2 + with Invalid_argument _ -> raise PatternMatchingFailure) | PBinder(BProd,na1,c1,d1), IsProd(na2,c2,d2) -> sorec ((na2,c2)::stk) (sorec stk sigma c1 c2) d1 d2 |