diff options
| author | Hugo Herbelin | 2016-04-12 22:24:59 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:46 +0200 |
| commit | 23ebfc41fba48ccce9bc878de258d1b0901f7dda (patch) | |
| tree | deb34d0aebc627d31317ff8ac418f6a07f506632 /ltac | |
| parent | b6db76517b9a7f21078ab59a0b8eeee6bfdf5ba7 (diff) | |
Fixing printers for pr_auto_using and pr_firstorder_using.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/g_auto.ml4 | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ltac/g_auto.ml4 b/ltac/g_auto.ml4 index d4fd8a1df3..601d39b995 100644 --- a/ltac/g_auto.ml4 +++ b/ltac/g_auto.ml4 @@ -50,11 +50,16 @@ let eval_uconstrs ist cs = } in List.map (fun c -> Pretyping.type_uconstr ~flags ist c) cs -let pr_auto_using _ _ _ = Pptactic.pr_auto_using (fun _ -> mt ()) +let pr_auto_using_raw _ _ _ = Pptactic.pr_auto_using Ppconstr.pr_constr_expr +let pr_auto_using_glob _ _ _ = Pptactic.pr_auto_using (fun (c,_) -> Printer.pr_glob_constr c) +let pr_auto_using _ _ _ = Pptactic.pr_auto_using Printer.pr_closed_glob ARGUMENT EXTEND auto_using - TYPED AS uconstr_list PRINTED BY pr_auto_using + RAW_TYPED AS uconstr_list + RAW_PRINTED BY pr_auto_using_raw + GLOB_TYPED AS uconstr_list + GLOB_PRINTED BY pr_auto_using_glob | [ "using" ne_uconstr_list_sep(l, ",") ] -> [ l ] | [ ] -> [ [] ] END @@ -192,8 +197,6 @@ ARGUMENT EXTEND hints_path | [ hints_path(p) ";" hints_path(q) ] -> [ Hints.PathSeq (p, q) ] END -let pr_hintbases _prc _prlc _prt = Pptactic.pr_hintbases - ARGUMENT EXTEND opthints TYPED AS preident_list_opt PRINTED BY pr_hintbases |