Lines Matching refs:let
7 let binop_precedence:(char, int) Hashtbl.t = Hashtbl.create 10
10 let precedence c = try Hashtbl.find binop_precedence c with Not_found -> -1
19 let rec parse_primary = parser
30 let rec parse_args accumulator = parser
38 let rec parse_ident id = parser
68 let step =
116 let token_prec = precedence c in
125 let rhs = parse_unary stream in
128 let rhs =
132 * rhs, let the pending operator take rhs as its lhs. *)
133 let next_prec = precedence c2 in
141 let lhs = Ast.Binary (c, lhs, rhs) in
167 let parse_prototype =
168 let rec parse_args accumulator = parser
172 let parse_operator = parser
176 let parse_binary_precedence = parser
194 let name = prefix ^ (String.make 1 op) in
195 let args = Array.of_list (List.rev args) in
209 let parse_definition = parser
214 let parse_toplevel = parser
220 let parse_extern = parser
