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.")
87 and parse_bin_rhs expr_prec lhs stream =
88 match Stream.peek stream with
97 Stream.junk stream;
100 let rhs = parse_primary stream in
104 match Stream.peek stream with
110 then parse_bin_rhs (token_prec + 1) rhs stream
117 parse_bin_rhs expr_prec lhs stream
124 | [< lhs=parse_primary; stream >] -> parse_bin_rhs 0 lhs stream
143 raise (Stream.Error "expected function name in prototype")
