Source

compiler-libs-hack / ocaml / camlp4 / test / fixtures / stream-parser-bug.ml

1
2
3
4
5
let foo = parser
  | [< '42; ps >] ->
      let ps = ps + 42 in
      type_phrases ps
  | [< >] -> [< >]