diff options
| author | Arnaud Spiwack | 2015-06-25 14:55:07 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-06-25 14:55:07 +0200 |
| commit | 0ae66237261b9810976eb2614dfda8e293e4b9ea (patch) | |
| tree | 0d0a2c51a3677e72dc8fcd0fb49a471d5d26ee36 | |
| parent | 9420069e4d0bf3bf377c950bbc41ea762fbcfce8 (diff) | |
Remove useless `and_short_name` in interpreted level in `Tacexpr`.
| -rw-r--r-- | intf/tacexpr.mli | 2 | ||||
| -rw-r--r-- | printing/pptactic.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli index 78b88289e1..91e020586b 100644 --- a/intf/tacexpr.mli +++ b/intf/tacexpr.mli @@ -387,7 +387,7 @@ type raw_tactic_arg = type t_trm = Term.constr type t_utrm = Glob_term.closed_glob_constr type t_pat = glob_constr_and_expr * constr_pattern -type t_cst = evaluable_global_reference and_short_name +type t_cst = evaluable_global_reference type t_ref = ltac_constant located type t_nam = Id.t diff --git a/printing/pptactic.ml b/printing/pptactic.ml index b8ad996aa3..1502884be7 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1382,7 +1382,7 @@ module Make 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_constant = pr_and_short_name (pr_evaluable_reference_env env); + pr_constant = pr_evaluable_reference_env env; pr_reference = pr_located pr_ltac_constant; pr_name = pr_id; pr_generic = Genprint.generic_top_print; |