Project

General

Profile

Revision bb2ca5f4 src/corelang.ml

View differences:

src/corelang.ml
29 29
module VDeclModule =
30 30
struct (* Node module *)
31 31
  type t = var_decl
32
  let compare v1 v2 = compare v1 v2
33
  let hash n = Hashtbl.hash n
34
  let equal n1 n2 = n1 = n2
32
  let compare v1 v2 = compare v1.var_id v2.var_id
35 33
end
36 34

  
37 35
module VMap = Map.Make(VDeclModule)
......
301 299

  
302 300
let expr_list_of_expr expr =
303 301
  match expr.expr_desc with
304
  | Expr_tuple elist ->
305
      elist
306
  | _ -> [expr]
302
  | Expr_tuple elist -> elist
303
  | _                -> [expr]
307 304

  
308 305
let expr_of_expr_list loc elist =
309 306
 match elist with

Also available in: Unified diff