diff options
| author | herbelin | 2000-10-18 14:37:44 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-18 14:37:44 +0000 |
| commit | bedaec8452d0600ede52efeeac016c9d323c66de (patch) | |
| tree | 7f056ffcd58f58167a0e813d5a8449eb950a8e23 /parsing/printer.ml | |
| parent | 9983a5754258f74293b77046986b698037902e2b (diff) | |
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
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 12 |
1 files changed, 6 insertions, 6 deletions
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 "." >]) |