diff options
| author | Hugo Herbelin | 2016-04-26 12:17:42 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:49 +0200 |
| commit | eb9216e544cb5fce4347052f42e9452a822c2f64 (patch) | |
| tree | 56fc453536a44df3888feac1c758b72b91f396d6 /printing/pptactic.ml | |
| parent | 67335c832a55cbd0ca559906bbe1af2485241353 (diff) | |
Revert "Honor parsing and printing levels for tactic entry in TACTIC EXTEND and"
This reverts commit fb1b7b084bcbbbc176040fcadeac00aee6b1e462.
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index c3c4009ca1..70acd91f49 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1414,32 +1414,8 @@ let () = Genprint.register_print0 Stdarg.wit_string pr_string pr_string pr_string let () = - let printer _ _ prtac = prtac (5, E) in - declare_extra_genarg_pprule wit_tactic printer printer printer - -let () = let printer _ _ prtac = prtac (0, E) in - declare_extra_genarg_pprule wit_tactic0 printer printer printer - -let () = - let printer _ _ prtac = prtac (1, E) in - declare_extra_genarg_pprule wit_tactic1 printer printer printer - -let () = - let printer _ _ prtac = prtac (2, E) in - declare_extra_genarg_pprule wit_tactic2 printer printer printer - -let () = - let printer _ _ prtac = prtac (3, E) in - declare_extra_genarg_pprule wit_tactic3 printer printer printer - -let () = - let printer _ _ prtac = prtac (4, E) in - declare_extra_genarg_pprule wit_tactic4 printer printer printer - -let () = - let printer _ _ prtac = prtac (5, E) in - declare_extra_genarg_pprule wit_tactic5 printer printer printer + declare_extra_genarg_pprule wit_tactic printer printer printer let () = let pr_unit _ _ _ () = str "()" in |