diff options
| author | Enrico Tassi | 2014-12-24 14:34:51 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2014-12-26 15:07:03 +0100 |
| commit | 5d6106a075b79abbb92b03bbca7b13a517cf4925 (patch) | |
| tree | 8dd90fb5483a623b27f3d62a18e7a6cf088fc4af /printing/printer.ml | |
| parent | dca4b978ff8bfa2eeee864edac4199d9d9df3d5e (diff) | |
Term: include a function to print terms
I find it very odd not to have a pretty printer for terms than can
be called from *everywhere*. This commit sticks in Term a long spaghetti
to let Printer install a printing function.
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 38b5e0bfdd..1218c49b37 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -67,6 +67,8 @@ let pr_constr t = let (sigma, env) = get_current_context () in pr_constr_env env sigma t +let () = Hook.set Term.print_hook pr_constr + let pr_open_lconstr (_,c) = pr_lconstr c let pr_open_constr (_,c) = pr_constr c |