diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-18 09:15:35 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-18 09:15:35 +0000 |
| commit | 06982f3aec9bbc02b9a7dc045ae3112fd5bc218f (patch) | |
| tree | 15d50560ce88af471cfbbac759bd2cd693431b08 | |
| parent | b75ec1ff2208f833fca4fb86ca0d8196e08a033e (diff) | |
Nettoyage exceptions liées au vieux Case; réparation du try with UserError mal nommé dans findtype
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2303 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/pretyping.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 80a4a2ec0..9b43acb2b 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -347,8 +347,8 @@ let rec pretype tycon env isevars lvar lmeta = function let fj = pretype (mk_tycon expti) env isevars lvar lmeta lf.(i) in let pred = - Cases.pred_case_ml_onebranch - loc env (evars_of isevars) isrec indt (i,fj) in + Cases.pred_case_ml + env (evars_of isevars) isrec indt (i,fj.uj_type) in if has_undefined_isevars isevars pred then findtype (i+1) else let pty = @@ -356,7 +356,7 @@ let rec pretype tycon env isevars lvar lmeta = function let pj = { uj_val = pred; uj_type = pty } in let _ = option_app (the_conv_x_leq env isevars pred) tycon in pj - with UserError _ -> findtype (i+1) in + with Cases.NotInferable _ -> findtype (i+1) in findtype 0 in let pj = j_nf_evar (evars_of isevars) pj in |