Commits

camlspotter  committed 9e5576e

update

  • Participants
  • Parent commits 2ebefa3

Comments (0)

Files changed (1)

File lib/printer.ml

 
 let parenbox : assoc -> level -> ppr -> ppr = fun assoc lev t ->
   need_paren assoc lev >>= function
-    | true  -> string "(" ++ box 0 (reset t) ++ string ")" 
+    | true  -> box 1 & string "(" ++ reset t ++ string ")" 
     | false -> t
 
 (** Common utilities *)