From a1a7cb88e85c33204dfb022cb5b9eb5c435366b1 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 8 Feb 2008 16:51:00 +0000
Subject: Add printer for Pp.std_ppcmds...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10531 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/include         | 2 ++
 dev/top_printers.ml | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'dev')

diff --git a/dev/include b/dev/include
index 3011bcedf2..90c2a77d45 100644
--- a/dev/include
+++ b/dev/include
@@ -6,6 +6,8 @@
 #cd ".";;
 #use "base_include";;
 
+#install_printer  (* pp_stdcmds *) pppp;;
+
 #install_printer  (* pattern *) pppattern;;
 #install_printer  (* rawconstr *) pprawconstr;;
 
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 27577c79cf..07dda42b85 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -34,6 +34,9 @@ let _ = Constrextern.print_evar_arguments := true
 let _ = set_bool_option_value (SecondaryTable ("Printing","Matching")) false
 let _ = Detyping.set_detype_anonymous (fun _ _ -> raise Not_found)
 
+(* std_ppcmds *)
+let pppp x = pp x
+
 (* name printers *)
 let ppid id = pp (pr_id id)
 let pplab l = pp (pr_lab l)
-- 
cgit v1.2.3