diff options
| author | aspiwack | 2009-07-07 14:56:02 +0000 |
|---|---|---|
| committer | aspiwack | 2009-07-07 14:56:02 +0000 |
| commit | cd2cec34d3508e147a636a040321ac73f3273011 (patch) | |
| tree | c004d879593c5eb22bb91e9af2515e7c8bea746d /interp | |
| parent | 8c1884146772bdcf505f9efe820c440bafe75acf (diff) | |
Jolification : tentative de supprimer les "( evd)" et associés qui
traînaient un peu partout dans le code depuis la fusion d'evar_map et
evar_defs. Début du travail d'uniformisation des noms donnés aux
evar_defs à travers le code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12224 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index d8c4a70678..1d89306ed2 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1238,7 +1238,7 @@ let interp_open_constr_patvar sigma env c = ) | _ -> map_rawconstr patvar_to_evar r in let raw = patvar_to_evar raw in - Default.understand_tcc ( !sigma) env raw + Default.understand_tcc !sigma env raw let interp_constr_judgment sigma env c = Default.understand_judgment sigma env (intern_constr sigma env c) @@ -1302,7 +1302,7 @@ let interp_binder sigma env na t = Default.understand_type sigma env t' let interp_binder_evars evdref env na t = - let t = intern_gen true ( !evdref) env t in + let t = intern_gen true !evdref env t in let t' = locate_if_isevar (loc_of_rawconstr t) na t in Default.understand_tcc_evars evdref env IsType t' @@ -1349,7 +1349,7 @@ let interp_context ?(fail_anonymous=false) sigma env params = (Default.understand_judgment sigma) env bl let interp_context_evars ?(fail_anonymous=false) evdref env params = - let bl = intern_context fail_anonymous ( !evdref) env params in + let bl = intern_context fail_anonymous !evdref env params in interp_context_gen (fun env t -> Default.understand_tcc_evars evdref env IsType t) (Default.understand_judgment_tcc evdref) env bl |