From bedaec8452d0600ede52efeeac016c9d323c66de Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 18 Oct 2000 14:37:44 +0000
Subject: Renommage canonique : declaration = definition | assumption mode de
 reference = named | rel

Ex:
push_named_decl : named_declaration -> env -> env
lookup_named : identifier -> safe_environment -> constr option * typed_type
add_named_assum : identifier * typed_type -> named_context -> named_context
add_named_def : identifier*constr*typed_type -> named_context -> named_context


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@723 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/closure.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/closure.ml')

diff --git a/kernel/closure.ml b/kernel/closure.ml
index 71bfa0778f..ae5e51db0f 100644
--- a/kernel/closure.ml
+++ b/kernel/closure.ml
@@ -294,7 +294,7 @@ let make_constr_ref n = function
 
 let defined_vars flags env =
   if red_local_const (snd flags) then
-    fold_var_context 
+    fold_named_context 
       (fun env (id,b,t) e ->
 	 match b with
 	   | None -> e
-- 
cgit v1.2.3