Source

ocamlspot / tests / let_open.ml

Full commit
1
2
3
4
5
6
7
8
module (* M => *) M (* <= M *) = struct
  let (* x => *) x (* <= x *) = 1
end

let _ = 
  let open M (* ? M *) (* damn, no position for M *) in
  x (* ? x *)
;;