From 6cdcd498c4b425cad077f5bfaa453dc605b325a2 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Fri, 26 Aug 2016 13:11:51 +0200
Subject: CLEANUP: renaming "Printer.pr_var_decl" function to
 "Printer.pr_named_decl"

---
 printing/printer.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'printing/printer.ml')

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