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 /printing/genprint.ml | |
parent | 0df9c751f98d2f9b4423eb1bee17730cd0bf0123 (diff) |
Using a specific function to register vernac printers.
Diffstat (limited to 'printing/genprint.ml')
-rw-r--r-- | printing/genprint.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/printing/genprint.ml b/printing/genprint.ml index 543b05024..b20ea0b62 100644 --- a/printing/genprint.ml +++ b/printing/genprint.ml @@ -39,6 +39,12 @@ let register_print0 wit raw glb top = let printer = { raw; glb; top; } in Print.register0 wit printer +let register_vernac_print0 wit raw = + let glb _ = CErrors.anomaly (Pp.str "vernac argument needs not globwit printer.") in + let top _ = CErrors.anomaly (Pp.str "vernac argument needs not wit printer.") in + let printer = { raw; glb; top; } in + Print.register0 wit printer + let raw_print wit v = (Print.obj wit).raw v let glb_print wit v = (Print.obj wit).glb v let top_print wit v = (Print.obj wit).top v |