let get_constant_value env uid = try Hashtbl.find env.constants uid with | Not_found -> raise (RuntimeError.InternalError ("Unable to get constant "^(string_of_int uid)))