Lines Matching full:stream
26 | [< 'Token.Ident id; stream >] ->
28 | [< e=parse_expr; stream >] ->
32 end stream
45 parse_ident id stream
47 | [< >] -> raise (Stream.Error "unknown token when expecting an expression.")
51 and parse_bin_rhs expr_prec lhs stream =
52 match Stream.peek stream with
61 Stream.junk stream;
64 let rhs = parse_primary stream in
68 match Stream.peek stream with
74 then parse_bin_rhs (token_prec + 1) rhs stream
81 parse_bin_rhs expr_prec lhs stream
88 | [< lhs=parse_primary; stream >] -> parse_bin_rhs 0 lhs stream
107 raise (Stream.Error "expected function name in prototype")
