Source

mutated_ocaml / camlp4 / test / fixtures / match_parser.ml

Full commit
j...@vmware 743bd00 







1
2
3
4
5
6
7
8
9
open Camlp4.PreCast;

let _loc = Loc.ghost in
let e = <:expr< parser [: `"a" :] -> t >> in
let a =
  match e with
  [ <:expr< parser [: `$str:x$ :] -> t >> -> x
  | _ -> assert False ]
in Format.printf "a: %S@." a;