From 06982f3aec9bbc02b9a7dc045ae3112fd5bc218f Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 18 Dec 2001 09:15:35 +0000 Subject: Nettoyage exceptions liées au vieux Case; réparation du try with UserError mal nommé dans findtype MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2303 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/pretyping.ml | 6 +++--- 1 file 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 -- cgit v1.2.3