diff options
| author | Hugo Herbelin | 2016-04-27 22:13:04 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 22:13:04 +0200 |
| commit | a6fa936bbd0c4367b7a4d87df786645c138327b3 (patch) | |
| tree | 5191db2f8740db49fd7d9fb60878431de17b9ea7 /printing | |
| parent | ee374eb0bbf32f192f474be25ad23bd21604d583 (diff) | |
Revert "Honor parsing and printing levels for tactic entry in TACTIC EXTEND and"
This reverts commit c4ce1baa9f66210ebc1909988b3dd8baa1b8ef27.
Diffstat (limited to 'printing')
| -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 06bf077419..5dbf9a42a3 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1391,32 +1391,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 |