diff options
| author | filliatr | 2000-07-20 16:46:15 +0000 |
|---|---|---|
| committer | filliatr | 2000-07-20 16:46:15 +0000 |
| commit | b6337996e891f3fa33e0ff01a7dae13c469d6055 (patch) | |
| tree | 119d52ec97de7ad8e56d9b5c74373e3a4fd5a954 /pretyping | |
| parent | f8a0d5e7f5efcd588627a2eadeb6e8f9f7d597c6 (diff) | |
portage Refine
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@559 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pretyping.ml | 6 | ||||
| -rw-r--r-- | pretyping/pretyping.mli | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index efbf7594a8..4e658787d0 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -493,13 +493,13 @@ let j_apply f env sigma j = retourne aussi le nouveau sigma... *) -let ise_resolve_casted_gen sigma env lvar lmeta typ c = +let ise_resolve_casted_gen fail_evar sigma env lvar lmeta typ c = let isevars = ref sigma in let j = unsafe_fmachine (mk_tycon typ) false isevars [] env lvar lmeta c in - (j_apply (fun _ -> process_evars true) env !isevars j).uj_val + (j_apply (fun _ -> process_evars fail_evar) env !isevars j).uj_val let ise_resolve_casted sigma env typ c = - ise_resolve_casted_gen sigma env [] [] typ c + ise_resolve_casted_gen true sigma env [] [] typ c (* Raw calls to the inference machine of Trad: boolean says if we must fail on unresolved evars, or replace them by Metas; the unsafe_judgment list diff --git a/pretyping/pretyping.mli b/pretyping/pretyping.mli index e19b85247f..eb72b7e00d 100644 --- a/pretyping/pretyping.mli +++ b/pretyping/pretyping.mli @@ -28,7 +28,7 @@ val ise_resolve2 : 'a evar_map -> env -> (identifier * unsafe_judgment) list -> (int * unsafe_judgment) list -> rawconstr -> constr val ise_resolve_casted_gen : - 'a evar_map -> env -> (identifier * unsafe_judgment) list -> + bool -> 'a evar_map -> env -> (identifier * unsafe_judgment) list -> (int * unsafe_judgment) list -> constr -> rawconstr -> constr val ise_resolve_casted : 'a evar_map -> env -> constr -> rawconstr -> constr |