diff options
author | 2017-10-29 19:22:27 +0100 | |
---|---|---|
committer | 2017-11-02 11:38:59 +0100 | |
commit | 9c232079b996313ed1f5b63746304ccd639c8355 (patch) | |
tree | b52102e3623e94b7621f01f51ae384a2d51b57e0 /plugins/ltac/pptactic.ml | |
parent | 565a9a1b5368c586e529fc9774e4cb4b81c6441b (diff) |
Binding ltac printing functions to the system of generic printing.
This concerns pr_value and message_of_value.
This has a few consequences. For instance, no more ad hoc message "a
term" or "a tactic", when not enough information is available for
printing, one gets a generic message "a value of type foobar".
But we also have more printers, satisfying e.g. request #5786.
Diffstat (limited to 'plugins/ltac/pptactic.ml')
-rw-r--r-- | plugins/ltac/pptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml index 37c610e44..e467d3e2c 100644 --- a/plugins/ltac/pptactic.ml +++ b/plugins/ltac/pptactic.ml @@ -1220,8 +1220,8 @@ let pr_destruction_arg_env c = Genprint.PrinterNeedsContext (fun env sigma -> let make_constr_printer f c = Genprint.PrinterNeedsContextAndLevel { - Genprint.default_already_surrounded = Ppconstr.lsimpleconstr; - Genprint.default_ensure_surrounded = Ppconstr.ltop; + Genprint.default_already_surrounded = Ppconstr.ltop; + Genprint.default_ensure_surrounded = Ppconstr.lsimpleconstr; Genprint.printer = (fun env sigma n -> f env sigma n c)} let lift f a = Genprint.PrinterBasic (fun () -> f a) |