From b6337996e891f3fa33e0ff01a7dae13c469d6055 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 20 Jul 2000 16:46:15 +0000
Subject: portage Refine

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@559 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/pretyping.ml  | 6 +++---
 pretyping/pretyping.mli | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'pretyping')

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
 
-- 
cgit v1.2.3