diff options
| author | herbelin | 2011-07-16 20:35:08 +0000 |
|---|---|---|
| committer | herbelin | 2011-07-16 20:35:08 +0000 |
| commit | 928070fda675de585b40e8f8eca500d2695f09b9 (patch) | |
| tree | 9f91a7d8aba9fef8886f096435353fae347f5453 /dev | |
| parent | 06e40b8c8f37a0afbe97d2e6e17cd4e45fabddcf (diff) | |
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
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -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) *) |