diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-19 17:11:39 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-19 17:11:39 +0000 |
commit | d185c837846520db04383f84a65ae13bc2074955 (patch) | |
tree | e885d422fec29d4fe85c603107795d2b43e704bb | |
parent | e7c4b9b422eda2c8b1b26fc46ecbdca3f137a4e1 (diff) |
Export de l'afficheur de substitutions de noms de modules pour le débogueur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9504 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | dev/base_include | 1 | ||||
-rw-r--r-- | dev/db | 1 | ||||
-rw-r--r-- | dev/top_printers.ml | 2 |
3 files changed, 4 insertions, 0 deletions
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 *) @@ -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) |