Original bug ID: 6106
Reporter: @mmottl
Status: closed (set by @diml on 2016-12-07T17:27:30Z)
Resolution: open
Priority: normal
Severity: minor
Version: 4.00.1
Target version: later
Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues
Monitored by: @mmottl

Bug description

Consider file foo.ml:

let t = ref 0
let f () = t := Pervasives.(0); t := 42

Using "camlp4o -printer o foo.ml -o bar.ml" we obtain the following in "bar.ml":

let t = ref 0

let f () = (t := let open Pervasives in 0; t := 42)

The above is incorrect: "let open Pervasives in 0" needs to be put in parentheses, otherwise the assigned expression ends in "t := 42", which should be the subsequent assignment.