let is_union ~env id = 
  let rec iter e = 
    match e with
      [] -> raise Not_found
    | (id', l)::_ when id = id' -> !l.str_union_p
    | _::tl -> iter tl
  in
  iter env.struct_table