From cd2cec34d3508e147a636a040321ac73f3273011 Mon Sep 17 00:00:00 2001
From: aspiwack
Date: Tue, 7 Jul 2009 14:56:02 +0000
Subject: 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
---
 interp/constrintern.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'interp')

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