diff options
| author | Matej Kosik | 2016-08-26 13:11:51 +0200 |
|---|---|---|
| committer | Matej Kosik | 2016-08-26 13:11:51 +0200 |
| commit | 6cdcd498c4b425cad077f5bfaa453dc605b325a2 (patch) | |
| tree | d4948aa9bf43929226e384e7fccb8ef37cba1e86 | |
| parent | f45bbcf79018da0f52098ae284af73a5d38249c3 (diff) | |
CLEANUP: renaming "Printer.pr_var_decl" function to "Printer.pr_named_decl"
| -rw-r--r-- | dev/doc/changes.txt | 1 | ||||
| -rw-r--r-- | printing/printer.ml | 6 | ||||
| -rw-r--r-- | printing/printer.mli | 2 |
3 files changed, 5 insertions, 4 deletions
diff --git a/dev/doc/changes.txt b/dev/doc/changes.txt index f87e76dd1a..70626524bb 100644 --- a/dev/doc/changes.txt +++ b/dev/doc/changes.txt @@ -7,6 +7,7 @@ We renamed the following functions: Context.Rel.Declaration.fold -> Context.Rel.Declaration.fold_constr Context.Named.Declaration.fold -> Context.Named.Declaration.fold_constr Printer.pr_var_list_decl -> Printer.pr_compacted_decl + Printer.pr_var_decl -> Printer.pr_named_decl We renamed the following modules: diff --git a/printing/printer.ml b/printing/printer.ml index e3f4ea9999..77423d32a7 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -267,7 +267,7 @@ let pr_compacted_decl env sigma decl = let ptyp = (str" : " ++ pt) in hov 0 (pids ++ pbody ++ ptyp) -let pr_var_decl env sigma decl = +let pr_named_decl env sigma decl = let decl = match decl with | NamedDecl.LocalAssum (id, t) -> CompactedDecl.LocalAssum ([id], t) @@ -298,13 +298,13 @@ let pr_rel_decl env sigma decl = (* Prints a signature, all declarations on the same line if possible *) let pr_named_context_of env sigma = - let make_decl_list env d pps = pr_var_decl env sigma d :: pps in + let make_decl_list env d pps = pr_named_decl env sigma d :: pps in let psl = List.rev (fold_named_context make_decl_list env ~init:[]) in hv 0 (prlist_with_sep (fun _ -> ws 2) (fun x -> x) psl) let pr_named_context env sigma ne_context = hv 0 (Context.Named.fold_outside - (fun d pps -> pps ++ ws 2 ++ pr_var_decl env sigma d) + (fun d pps -> pps ++ ws 2 ++ pr_named_decl env sigma d) ne_context ~init:(mt ())) let pr_rel_context env sigma rel_context = diff --git a/printing/printer.mli b/printing/printer.mli index 196f7cb544..20032012a6 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -108,7 +108,7 @@ val pr_pconstructor : env -> pconstructor -> std_ppcmds val pr_context_unlimited : env -> evar_map -> std_ppcmds val pr_ne_context_of : std_ppcmds -> env -> evar_map -> std_ppcmds -val pr_var_decl : env -> evar_map -> Context.Named.Declaration.t -> std_ppcmds +val pr_named_decl : env -> evar_map -> Context.Named.Declaration.t -> std_ppcmds val pr_compacted_decl : env -> evar_map -> Context.Compacted.Declaration.t -> std_ppcmds val pr_rel_decl : env -> evar_map -> Context.Rel.Declaration.t -> std_ppcmds |