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
---
 parsing/printer.ml | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index e8eccf6834..04578675ac 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -186,8 +186,8 @@ let pr_rel_decl env (na,c,typ) =
  * It's printed out from outermost to innermost, so it's readable. *)
 
 (* Prints a signature, all declarations on the same line if possible *)
-let pr_var_context_of env =
-  hV 0 [< (fold_var_context
+let pr_named_context_of env =
+  hV 0 [< (fold_named_context
 	     (fun env d pps -> [< pps; 'wS 2; pr_var_decl env d >])
              env) [< >] >]
 
@@ -205,7 +205,7 @@ let pr_rel_context env rel_context =
 (* Prints an env (variables and de Bruijn). Separator: newline *)
 let pr_context_unlimited env =
   let sign_env =
-    fold_var_context
+    fold_named_context
       (fun env d pps ->
          let pidt =  pr_var_decl env d in [< pps; 'fNL; pidt >])
       env [< >] 
@@ -223,14 +223,14 @@ let pr_ne_context_of header k env =
   else let penv = pr_context_unlimited env in [< header; penv >]
 
 let pr_context_limit n env =
-  let var_context = Environ.var_context env in
-  let lgsign = List.length var_context in
+  let named_context = Environ.named_context env in
+  let lgsign = List.length named_context in
   if n >= lgsign then 
     pr_context_unlimited env
   else
     let k = lgsign-n in
     let _,sign_env =
-      fold_var_context
+      fold_named_context
         (fun env d (i,pps) ->
            if i < k then 
 	     (i+1, [< pps ;'sTR "." >])
-- 
cgit v1.2.3