diff options
| author | Hugo Herbelin | 2017-11-01 22:54:24 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-11-02 11:19:08 +0100 |
| commit | 767816eece27e6bb8cba0bbf122507bd2a3b77a1 (patch) | |
| tree | 6348c7ac8f50e4782a41072e5db26d83b3b1a3a5 /plugins/ltac/pptactic.ml | |
| parent | 0df9c751f98d2f9b4423eb1bee17730cd0bf0123 (diff) | |
Using a specific function to register vernac printers.
Diffstat (limited to 'plugins/ltac/pptactic.ml')
| -rw-r--r-- | plugins/ltac/pptactic.ml | 4 |
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 |
