aboutsummaryrefslogtreecommitdiff
path: root/dev
diff options
context:
space:
mode:
Diffstat (limited to 'dev')
-rw-r--r--dev/base_include1
-rw-r--r--dev/db1
-rw-r--r--dev/top_printers.ml1
3 files changed, 3 insertions, 0 deletions
diff --git a/dev/base_include b/dev/base_include
index 1d2a55ef18..5aa5537849 100644
--- a/dev/base_include
+++ b/dev/base_include
@@ -26,6 +26,7 @@
#install_printer (* section_path *) prsp;;
#install_printer (* qualid *) prqualid;;
#install_printer (* kernel_name *) prkn;;
+#install_printer (* constant *) prcon;;
#install_printer (* constr *) print_pure_constr;;
#install_printer (* patch *) ppripos;;
#install_printer (* values *) ppvalues;;
diff --git a/dev/db b/dev/db
index 4ccfac6d3a..49d6461166 100644
--- a/dev/db
+++ b/dev/db
@@ -8,6 +8,7 @@ install_printer Top_printers.prmbid
install_printer Top_printers.prdir
install_printer Top_printers.prmp
install_printer Top_printers.prkn
+install_printer Top_printers.prcon
install_printer Top_printers.prsp
install_printer Top_printers.prqualid
install_printer Top_printers.prast
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index cef2ab9798..05059bd1ba 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -36,6 +36,7 @@ let prmsid msid = pp (str (debug_string_of_msid msid))
let prmbid mbid = pp (str (debug_string_of_mbid mbid))
let prdir dir = pp (pr_dirpath dir)
let prmp mp = pp(str (string_of_mp mp))
+let prcon con = pp(pr_con con)
let prkn kn = pp(pr_kn kn)
let prsp sp = pp(pr_sp sp)
let prqualid qid = pp(pr_qualid qid)