diff options
| author | herbelin | 2010-06-18 19:50:42 +0000 |
|---|---|---|
| committer | herbelin | 2010-06-18 19:50:42 +0000 |
| commit | 0c37eb2501f7331dbab6450a4469d6c8885d92f5 (patch) | |
| tree | 1be6531df7b2b1a5223fdf25a674e9c6b15c25f5 /dev | |
| parent | be541682b63bac7ef7c67b68545c42a1cf5a53fe (diff) | |
Quick fix for having clenv debug printer working in trunk.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 1 | ||||
| -rw-r--r-- | dev/printers.mllib | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 4 |
3 files changed, 4 insertions, 2 deletions
diff --git a/dev/base_include b/dev/base_include index debc074de9..23cc38fb47 100644 --- a/dev/base_include +++ b/dev/base_include @@ -78,6 +78,7 @@ open Pretyping.Default.Cases open Cbv open Classops open Clenv +open Clenvtac open Rawterm open Coercion open Coercion.Default diff --git a/dev/printers.mllib b/dev/printers.mllib index d060440b30..3f489a95bf 100644 --- a/dev/printers.mllib +++ b/dev/printers.mllib @@ -112,6 +112,7 @@ Proof_type Goal Logic Refiner +Clenv Evar_refiner Proofview Proof diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 286f596e45..1a1d03a611 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -26,7 +26,7 @@ open Evd open Goptions open Genarg open Mod_subst - +open Clenv let _ = Constrextern.print_evar_arguments := true let _ = set_bool_option_value ["Printing";"Matching"] false @@ -113,8 +113,8 @@ let pp_transparent_state s = pp (pr_transparent_state s) (* proof printers *) let ppmetas metas = pp(pr_metaset metas) let ppevm evd = pp(pr_evar_map evd) -(* spiwack: deactivated until a replacement is found let ppclenv clenv = pp(pr_clenv clenv) +(* spiwack: deactivated until a replacement is found let ppgoal g = pp(db_pr_goal g) let pppftreestate p = pp(print_pftreestate p) *) |