From 928070fda675de585b40e8f8eca500d2695f09b9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 16 Jul 2011 20:35:08 +0000
Subject: Finally, pr_goal seems to work for printing v8.2 style goal in
 debugger.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14278 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/db              | 1 +
 dev/top_printers.ml | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index e7225e8f24..63c98bb6b3 100644
--- a/dev/db
+++ b/dev/db
@@ -29,6 +29,7 @@ install_printer Top_printers.ppenv
 
 install_printer Top_printers.ppmetas
 install_printer Top_printers.ppevm
+install_printer Top_printers.ppgoal
 
 install_printer Top_printers.pptac
 install_printer Top_printers.ppobj
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 333cf1a67b..bb8d0a68b2 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -116,8 +116,8 @@ let ppevm evd = pp(pr_evar_map (Some 2) evd)
 let ppevmall evd = pp(pr_evar_map None evd)
 let ppclenv clenv = pp(pr_clenv clenv)
 let ppgoalgoal gl = pp(Goal.pr_goal gl)
+let ppgoal g = pp(Printer.pr_goal g)
 (* spiwack: deactivated until a replacement is found
-let ppgoal g = pp(db_pr_goal g)
 let pppftreestate p = pp(print_pftreestate p)
 *)
 
-- 
cgit v1.2.3