diff options
| author | Pierre-Marie Pédrot | 2015-12-18 12:06:24 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-18 12:26:27 +0100 |
| commit | eee16239f6b00400c8a13b787c310bcb11c37afe (patch) | |
| tree | b1974b3f1b4a3d2ea8f8441d95789049326762d2 /dev/top_printers.ml | |
| parent | d83e8aceaca972f8997f208e46d257e69c2e352d (diff) | |
Tying the loop in tactic printing API.
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index b3b1ae0e91..0e90026122 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -468,9 +468,8 @@ let pp_generic_argument arg = let prgenarginfo arg = let tpe = pr_argument_type (genarg_tag arg) in - let pr_gtac _ x = Pptactic.pr_glob_tactic (Global.env()) x in try - let data = Pptactic.pr_top_generic pr_constr pr_lconstr pr_gtac pr_constr_pattern arg in + let data = Pptactic.pr_top_generic (Global.env ()) arg in str "<genarg:" ++ tpe ++ str " := [ " ++ data ++ str " ] >" with _any -> str "<genarg:" ++ tpe ++ str ">" |