Project

General

Profile

Revision 2475c9e8 src/machine_code.ml

View differences:

src/machine_code.ml
106 106
  try
107 107
    let (decl, _) = List.assoc id m.mcalls in
108 108
    Corelang.node_of_top decl
109
  with Not_found -> (
110
    Format.eprintf "Unable to find node %s in list [%a]@.@?"
111
      id
112
      (Utils.fprintf_list ~sep:", " (fun fmt (n,_) -> Format.fprintf fmt "%s" n)) m.mcalls
113
    ;
109
  with Not_found -> ( 
110
    (* Format.eprintf "Unable to find node %s in list [%a]@.@?" *)
111
    (*   id *)
112
    (*   (Utils.fprintf_list ~sep:", " (fun fmt (n,_) -> Format.fprintf fmt "%s" n)) m.mcalls *)
113
    (* ; *)
114 114
    raise Not_found
115 115
  )
116 116
    

Also available in: Unified diff