Properly parenthesize set-field operations in ocaml extraction.

b388193c · Guillaume Melquiond · 5752c4cc · b388193c
Commit b388193c authored Aug 26, 2016 by Guillaume Melquiond
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/whyml/mlw_ocaml.ml src/whyml/mlw_ocaml.ml +1 -1

No files found.
--- a/src/whyml/mlw_ocaml.ml
+++ b/src/whyml/mlw_ocaml.ml
@@ -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] ->