diff options
| author | herbelin | 2003-11-01 22:19:58 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-01 22:19:58 +0000 |
| commit | bdd02d215319f1354f3941612eeb3a6188e584b7 (patch) | |
| tree | 9b27462ccb20b91c7629aaf78af6f4121ae5b97d | |
| parent | 61df4fc36bfc8b2fadbcf8db9751cefde8c75a93 (diff) | |
Finalement, niveau 0 pour l'argument du '-' unaire, pour éviter que
les entiers positifs soient parenthésés en tant qu'arguments de
fonction; tant pis, il faudra écrire '-(-x)' au lieu de '--x'
Ajout CPatNotation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4754 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/ppconstrnew.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 26aef71e32..6177f1a969 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -40,7 +40,7 @@ let lfix = 200 let larrow = 90 let lcast = 100 let lapp = 10 -let lposint = 11 (* above the argument of notations "- x" and "/ x" *) +let lposint = 1 (* above the argument of notation "- x" *) let lnegint = lapp (* above application *) let ltop = (200,E) let lproj = 1 @@ -131,9 +131,9 @@ let rec pr_patt inh p = prlist_with_sep sep (pr_patt (lapp,L)) args, lapp | CPatAtom (_,None) -> str "_", latom | CPatAtom (_,Some r) -> pr_reference r, latom + | CPatNotation (_,s,env) -> pr_notation pr_patt s env | CPatNumeral (_,i) -> Bignat.pr_bigint i, latom - | CPatDelimiters (_,k,p) -> - pr_delimiters k (pr_patt (latom,E) p), latom + | CPatDelimiters (_,k,p) -> pr_delimiters k (pr_patt lsimple p), 1 in let loc = cases_pattern_loc p in pr_with_comments loc (if prec_less prec inh then strm else surround strm) @@ -515,7 +515,7 @@ let rec pr inherited a = | CNotation (_,s,env) -> pr_notation pr s env | CNumeral (_,(Bignat.POS _ as p)) -> Bignat.pr_bigint p, lposint | CNumeral (_,(Bignat.NEG _ as p)) -> Bignat.pr_bigint p, lnegint - | CDelimiters (_,sc,a) -> pr_delimiters sc (pr (latom,E) a), latom + | CDelimiters (_,sc,a) -> pr_delimiters sc (pr lsimple a), 1 | CDynamic _ -> str "<dynamic>", latom in let loc = constr_loc a in |