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

7 lines
106 B
OCaml
Raw Normal View History

let foo = parser
| [< '42; ps >] ->
let ps = ps + 42 in
type_phrases ps
| [< >] -> [< >]