Project

General

Profile

Revision b616fe7a src/corelang.ml

View differences:

src/corelang.ml
225 225
let mkpredef_call loc funname args =
226 226
  mkexpr loc (Expr_appl (funname, mkexpr loc (Expr_tuple args), None))
227 227

  
228
let mkpredef_unary_call loc funname arg =
229
  mkexpr loc (Expr_appl (funname, arg, None))
230

  
231

  
232 228
(***********************************************************)
233 229
(* Fast access to nodes, by name *)
234 230
let (node_table : (ident, top_decl) Hashtbl.t) = Hashtbl.create 30
......
369 365
   expr_loc = loc;
370 366
   expr_annot = None}
371 367

  
368
let is_tuple_expr expr =
369
 match expr.expr_desc with
370
  | Expr_tuple _ -> true
371
  | _            -> false
372

  
372 373
let expr_list_of_expr expr =
373 374
  match expr.expr_desc with
374 375
  | Expr_tuple elist ->

Also available in: Unified diff