Project

General

Profile

Revision add75bcb src/corelang.ml

View differences:

src/corelang.ml
355 355

  
356 356
(* let get_const c = snd (Hashtbl.find consts_table c) *)
357 357

  
358
let ident_of_expr expr =
359
 match expr.expr_desc with
360
 | Expr_ident id -> id
361
 | _             -> assert false
362

  
358 363
(* Caution, returns an untyped and unclocked expression *)
359 364
let expr_of_ident id loc =
360 365
  {expr_tag = Utils.new_tag ();

Also available in: Unified diff