Source

compiler-libs-hack / ocaml / camlp4 / test / fixtures / match.ml

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