Lines Matching refs: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
78 end stream
81 end stream
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