Source

mutated_ocaml / camlp4 / test / fixtures / match.ml

Full commit
1
2
3
4
5
6
7
8
9
let x =
  match y with
  | A z -> z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z
  | B l ->
      (match l with
       | [] -> ()
       | x::xs -> p x; self xs)
  | C -> ()
in x