Lines Matching full:stream
28 | [< 'Token.Ident id; stream >] ->
30 | [< e=parse_expr; stream >] ->
34 end stream
47 parse_ident id stream
60 stream >] ->
66 stream >] ->
71 end stream
77 raise (Stream.Error "expected 'in' after for")
78 end stream
80 raise (Stream.Error "expected '=' after for")
81 end stream
83 | [< >] -> raise (Stream.Error "unknown token when expecting an expression.")
94 | [< stream >] -> parse_primary stream
98 and parse_bin_rhs expr_prec lhs stream =
99 match Stream.peek stream with
108 Stream.junk stream;
111 let rhs = parse_unary stream in
115 match Stream.peek stream with
121 then parse_bin_rhs (token_prec + 1) rhs stream
128 parse_bin_rhs expr_prec lhs stream
135 | [< lhs=parse_unary; stream >] -> parse_bin_rhs 0 lhs stream
173 then raise (Stream.Error "invalid number of operands for operator")
180 raise (Stream.Error "expected function name in prototype")
