diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-11-07 18:53:22 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-11-19 10:11:45 +0100 |
| commit | 2815d5841e98cd288921c364ca5b7bf36ca7bcfe (patch) | |
| tree | 89328076c88cb075da789ad1a994feb30d570d92 /printing | |
| parent | fc2476e4a29592dcf2860a16d3a7c0aeeb4bffac (diff) | |
Proper printer for [uconstr] in [Pptactic].
This particular instance is probably never called though.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 023335e6a..46aad3bc2 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1347,7 +1347,7 @@ module Make let pr = { pr_tactic = pr_glob_tactic_level env; pr_constr = pr_constr_env env Evd.empty; - pr_uconstr = (fun _ -> mt ()); (* arnaud: todo *) + pr_uconstr = pr_closed_glob_env env Evd.empty; pr_dconstr = pr_and_constr_expr (pr_glob_constr_env env); pr_lconstr = pr_lconstr_env env Evd.empty; pr_pattern = pr_pat_and_constr_expr (pr_glob_constr_env env); |