diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/include | 4 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/dev/include b/dev/include index 2a841e4583..ce923477b2 100644 --- a/dev/include +++ b/dev/include @@ -24,4 +24,6 @@ #install_printer (* readable_constraints *) prevc;; #install_printer (* walking_constraints *) prwc;; #install_printer (* clenv *) prclenv;; -#install_printer (* env *) ppenv;;
\ No newline at end of file +#install_printer (* env *) ppenv;; + +#install_printer (* tactic *) pptac;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 71347c695a..51334029e5 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -79,6 +79,8 @@ let pp_universes u = pP [< 'sTR"[" ; pr_universes u ; 'sTR"]" >] let ppenv e = pP (pr_rel_context e (rel_context e)) +let pptac = (fun x -> pP(gentacpr x)) + let cnt = ref 0 let constr_display csr = |