Commit b388193c authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Properly parenthesize set-field operations in ocaml extraction.

parent 5752c4cc
......@@ -969,7 +969,7 @@ module Print = struct
fprintf fmt "%a.%a" (print_expr_p info) e (print_lident info) f
| Esetfield (e1, f, e2) ->
fprintf fmt (protect_on paren "%a.%a <- %a")
(print_expr info) e1 (print_lident info) f (print_expr info) e2
(print_expr_p info) e1 (print_lident info) f (print_expr info) e2
| Eblock [] ->
fprintf fmt "()"
| Eblock [e] ->
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment