diff options
| author | Pierre-Marie Pédrot | 2016-03-21 00:19:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-21 00:19:40 +0100 |
| commit | df6132c06f9c8480b01f0a269cd1b95bbaa7f912 (patch) | |
| tree | 9260ceec0d4824c617bfad79b0d1953c5b971fd7 /printing | |
| parent | 6afe572a4448e50f18e408097dd9ed03cc432d39 (diff) | |
| parent | 87e27056beee0f7b63326d0a1cb3f68249539bee (diff) | |
Moving the last parts of the Ltac engine to hightactics.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index d99a5f0d89..982c18ec61 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1415,6 +1415,11 @@ let () = let printer _ _ prtac = prtac (0, E) in declare_extra_genarg_pprule wit_tactic printer printer printer +let () = + let pr_unit _ _ _ () = str "()" in + let printer _ _ prtac = prtac (0, E) in + declare_extra_genarg_pprule wit_ltac printer printer pr_unit + module Richpp = struct include Make (Ppconstr.Richpp) (struct |