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