Source

mutated_ocaml / camlp4 / test / fixtures / stream-parser-bug.ml

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