aboutsummaryrefslogtreecommitdiff
path: root/plugins/ltac/pptactic.ml
diff options
context:
space:
mode:
authorHugo Herbelin2017-11-01 22:54:24 +0100
committerHugo Herbelin2017-11-02 11:19:08 +0100
commit767816eece27e6bb8cba0bbf122507bd2a3b77a1 (patch)
tree6348c7ac8f50e4782a41072e5db26d83b3b1a3a5 /plugins/ltac/pptactic.ml
parent0df9c751f98d2f9b4423eb1bee17730cd0bf0123 (diff)
Using a specific function to register vernac printers.
Diffstat (limited to 'plugins/ltac/pptactic.ml')
-rw-r--r--plugins/ltac/pptactic.ml4
1 files changed, 4 insertions, 0 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml
index 2c46b7624c..00ce94f6c1 100644
--- a/plugins/ltac/pptactic.ml
+++ b/plugins/ltac/pptactic.ml
@@ -1180,6 +1180,10 @@ let declare_extra_genarg_pprule wit
in
Genprint.register_print0 wit f g h
+let declare_extra_vernac_genarg_pprule wit f =
+ let f x = f pr_constr_expr pr_lconstr_expr pr_raw_tactic_level x in
+ Genprint.register_vernac_print0 wit f
+
(** Registering *)
let run_delayed c = c (Global.env ()) Evd.empty