let make_incomplete_struct_definition ~env ~is_union = 
  let id = make_new_struct_id () in
  let def = { str_union_p = is_union; str_size = None
              str_align = None; str_fields = [] } in
  env.struct_table <- (id, ref def) :: env.struct_table;
  id