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
18 let rec parse_primary = parser
29 let rec parse_args accumulator = parser
37 let rec parse_ident id = parser
67 let step =
102 let token_prec = precedence c in
111 let rhs = parse_unary stream in
114 let rhs =
118 * rhs, let the pending operator take rhs as its lhs. *)
119 let next_prec = precedence c2 in
127 let lhs = Ast.Binary (c, lhs, rhs) in
141 let parse_prototype =
142 let rec parse_args accumulator = parser
146 let parse_operator = parser
150 let parse_binary_precedence = parser
168 let name = prefix ^ (String.make 1 op) in
169 let args = Array.of_list (List.rev args) in
183 let parse_definition = parser
188 let parse_toplevel = parser
194 let parse_extern = parser
