From d185c837846520db04383f84a65ae13bc2074955 Mon Sep 17 00:00:00 2001 From: herbelin Date: Fri, 19 Jan 2007 17:11:39 +0000 Subject: Export de l'afficheur de substitutions de noms de modules pour le débogueur MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9504 85f007b7-540e-0410-9357-904b9bb8a0f7 --- dev/base_include | 1 + dev/db | 1 + dev/top_printers.ml | 2 ++ 3 files changed, 4 insertions(+) diff --git a/dev/base_include b/dev/base_include index b7fa38ea8..26949cde9 100644 --- a/dev/base_include +++ b/dev/base_include @@ -38,6 +38,7 @@ #install_printer ppvblock;; #install_printer (* bigint *) ppbigint;; #install_printer (* loc *) pploc;; +#install_printer (* substitution *) prsubst;; (* Open main files *) diff --git a/dev/db b/dev/db index 784e5bac8..2ba7756fa 100644 --- a/dev/db +++ b/dev/db @@ -34,5 +34,6 @@ install_printer Top_printers.ppclenv install_printer Top_printers.pptac install_printer Top_printers.ppobj install_printer Top_printers.pploc +install_printer Top_printers.prsubst diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e1ee29e4f..df089f0b1 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -81,6 +81,8 @@ let genppj f j = let (c,t) = f j in (c ++ str " : " ++ t) let ppj j = pp (genppj pr_ljudge j) +let prsubst s = pp (Mod_subst.debug_pr_subst s) + (* proof printers *) let ppevm evd = pp(pr_evar_map evd) let ppevd evd = pp(pr_evar_defs evd) -- cgit v1.2.3