diff options
Diffstat (limited to 'translate/ppconstrnew.ml')
| -rw-r--r-- | translate/ppconstrnew.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 9a86e3ffa4..f8d81c2430 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -537,6 +537,7 @@ let rec pr sep inherited a = hov 0 (str "else" ++ pr (fun () -> brk (1,1)) ltop b2)), lif +(* | COrderedCase (_,st,po,c,[b1;b2]) when st = IfStyle -> (* On force les parenthèses autour d'un "if" sous-terme (même si le parsing est lui plus tolérant) *) @@ -556,6 +557,7 @@ let rec pr sep inherited a = pr spc ltop c ++ str " in") ++ pr spc ltop b), lletin +*) | COrderedCase (_,style,po,c,bl) -> hv 0 ( str (if style=MatchStyle then "old_match " else "match ") ++ |