path: root/ocaml-binary-annot/camlp4/test/fixtures/stream-parser-bug.ml

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