diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-11-01 22:54:24 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-11-02 11:19:08 +0100 |
| commit | 767816eece27e6bb8cba0bbf122507bd2a3b77a1 (patch) | |
| tree | 6348c7ac8f50e4782a41072e5db26d83b3b1a3a5 /plugins/ltac/g_obligations.ml4 | |
| parent | 0df9c751f98d2f9b4423eb1bee17730cd0bf0123 (diff) | |
Using a specific function to register vernac printers.
Diffstat (limited to 'plugins/ltac/g_obligations.ml4')
| -rw-r--r-- | plugins/ltac/g_obligations.ml4 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/plugins/ltac/g_obligations.ml4 b/plugins/ltac/g_obligations.ml4 index 1a2d89586..fea9e837b 100644 --- a/plugins/ltac/g_obligations.ml4 +++ b/plugins/ltac/g_obligations.ml4 @@ -155,6 +155,4 @@ let () = | None -> mt () | Some tac -> str "with" ++ spc () ++ Pptactic.pr_raw_tactic tac in - (* should not happen *) - let dummy _ _ _ expr = assert false in - Pptactic.declare_extra_genarg_pprule wit_withtac printer dummy dummy + Pptactic.declare_extra_vernac_genarg_pprule wit_withtac printer |