From 5eff644c658d1765ba73cd9e73c5bd7819c7d644 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 9 Oct 2014 16:04:15 +0200
Subject: Adding printer for named_context_val and Goal.goal in debugger.

---
 dev/db              | 2 ++
 dev/include         | 1 +
 dev/top_printers.ml | 2 ++
 3 files changed, 5 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index 04d300d409..c584adfe1e 100644
--- a/dev/db
+++ b/dev/db
@@ -32,11 +32,13 @@ install_printer Top_printers.ppconstraints
 install_printer Top_printers.pptype
 install_printer Top_printers.ppj
 install_printer Top_printers.ppenv
+install_printer Top_printers.ppnamedcontextval
 install_printer Top_printers.pp_stack_t
 install_printer Top_printers.pp_cst_stack_t
 
 install_printer Top_printers.ppmetas
 install_printer Top_printers.ppevm
+install_printer Top_printers.ppgoalgoal
 install_printer Top_printers.ppgoal
 install_printer Top_printers.pphintdb
 
diff --git a/dev/include b/dev/include
index ac09150075..069622a028 100644
--- a/dev/include
+++ b/dev/include
@@ -69,6 +69,7 @@
 #install_printer  (* clenv *) ppclenv;;
 #install_printer  (* env *) ppenv;;
 #install_printer  (* Hint_db.t *) pphintdb;;
+#install_printer  (* named_context_val *) ppnamedcontextval;;
 
 #install_printer  (* tactic *) pptac;;
 #install_printer  (* object *) ppobj;;
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index d98810b436..1d903f30f5 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -199,6 +199,8 @@ let ppuniverse_context_future c =
   let ctx = Future.force c in
     ppuniverse_context ctx
 let ppuniverses u = pp (Univ.pr_universes u)
+let ppnamedcontextval e =
+  pp (pr_named_context (Global.env ()) Evd.empty (named_context_of_val e))
 
 let ppenv e = pp
   (str "[" ++ pr_named_context_of e Evd.empty ++ str "]" ++ spc() ++
-- 
cgit v1.2.3