diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2015-06-25 15:24:55 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2015-06-25 15:24:55 +0200 |
| commit | 53dc6613499ca18672cda02697f182eb97cda8dc (patch) | |
| tree | 7ae10c6140c542f77221c2e55fe92de359c08d71 /printing | |
| parent | 0ae66237261b9810976eb2614dfda8e293e4b9ea (diff) | |
Remove other types not carried by interpretations in `Tacexpr`.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 1502884be..e8ccd29c8 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1380,8 +1380,8 @@ module Make 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); - pr_lpattern = pr_pat_and_constr_expr (pr_lglob_constr_env env); + pr_pattern = pr_constr_pattern_env env Evd.empty; + pr_lpattern = pr_lconstr_pattern_env env Evd.empty; pr_constant = pr_evaluable_reference_env env; pr_reference = pr_located pr_ltac_constant; pr_name = pr_id; |