Permalink
Browse files

Fix regression introduced by commit 14809. (Cherry pick commit 14946 …

…from version/4.02.)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14947 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 4370124 commit 894af5c4be06eed4471df7dd3849d86aee16f016 @alainfrisch alainfrisch committed Jun 3, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 parsing/pprintast.ml
View
@@ -166,7 +166,7 @@ class printer ()= object(self:'self)
method paren: 'a . ?first:space_formatter -> ?last:space_formatter ->
bool -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a -> unit =
fun ?(first="") ?(last="") b fu f x ->
- if b then (pp f first; fu f x; pp f last)
+ if b then (pp f "("; pp f first; fu f x; pp f last; pp f ")")
else fu f x

0 comments on commit 894af5c

Please sign in to comment.