Prise en compte qualid

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@963 85f007b7-540e-0410-9357-904b9bb8a0f7

2 files changed, 3 insertions, 0 deletions

diff --git a/dev/db b/dev/db
index 232e7b40b6..c89f2a8be8 100644
--- a/dev/db
+++ b/dev/db
@@ -2,6 +2,7 @@ load_printer "gramlib.cma"
 load_printer "top_printers.cmo"
 install_printer Top_printers.prid
 install_printer Top_printers.prsp
+install_printer Top_printers.prqualid
 install_printer Top_printers.prast
 install_printer Top_printers.prastpat
 install_printer Top_printers.prastpatl
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 990cab3b8b..4f0717b85d 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -47,6 +47,8 @@ let prj j = pP (genprj prjudge j)
 
 let prsp sp = pP[< 'sTR(string_of_path sp) >]
 
+let prqualid qid = pP[< pr_qualid qid >]
+
 let prgoal g = pP(prgl g)
 
 let prsigmagoal g = pP(prgl (sig_it g))