diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-01-17 09:16:50 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-01-17 09:16:50 +0000 |
commit | 87ccd3cc6212c947ef47c0d100c3e9d1771c9064 (patch) | |
tree | 70fea9b4ca330af75622743e6204d3725baf7458 /parsing/ppconstr.mli | |
parent | bc37c572cae76b6365f86eb5ebc05905b78577cf (diff) |
Some fix in beautify pretty-printer
- In binders, {X} were printed X
- Notation toto x y := were printed Notation totox y
- Fixpoint declaration prints too much spaces
Hunt is not closed yet anyway...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14913 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/ppconstr.mli')
-rw-r--r-- | parsing/ppconstr.mli | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/parsing/ppconstr.mli b/parsing/ppconstr.mli index f9ed3af02..afcdad3e4 100644 --- a/parsing/ppconstr.mli +++ b/parsing/ppconstr.mli @@ -51,12 +51,16 @@ val pr_with_occurrences : ('a -> std_ppcmds) -> 'a with_occurrences -> std_ppcmds val pr_red_expr : ('a -> std_ppcmds) * ('a -> std_ppcmds) * ('b -> std_ppcmds) * ('c -> std_ppcmds) -> - ('a,'b,'c) red_expr_gen -> std_ppcmds + ('a,'b,'c) red_expr_gen -> std_ppcmds val pr_may_eval : ('a -> std_ppcmds) -> ('a -> std_ppcmds) -> ('b -> std_ppcmds) -> ('c -> std_ppcmds) -> ('a,'b,'c) may_eval -> std_ppcmds val pr_glob_sort : glob_sort -> std_ppcmds +val pr_guard_annot : (constr_expr -> std_ppcmds) -> + local_binder list -> + ('a * Names.identifier) option * recursion_order_expr -> + std_ppcmds val pr_binders : local_binder list -> std_ppcmds val pr_constr_pattern_expr : constr_pattern_expr -> std_ppcmds |