assert (!proc_has_transformations (ds));
assert (n < dict_get_n_vars (ds->dict));
+ caseinit_mark_for_init (ds->caseinit, ds->dict);
+ ds->source = caseinit_translate_casereader_to_init_vars (
+ ds->caseinit, dict_get_proto (ds->dict), ds->source);
+ caseinit_clear (ds->caseinit);
+ caseinit_mark_as_preinited (ds->caseinit, ds->dict);
+
dict_delete_vars (ds->dict, vars, n);
ds->source = case_map_create_input_translator (
case_map_to_compact_dict (ds->dict, 0), ds->source);
update_last_proc_invocation (ds);
caseinit_mark_for_init (ds->caseinit, ds->dict);
+ ds->source = caseinit_translate_casereader_to_init_vars (
+ ds->caseinit, dict_get_proto (ds->dict), ds->source);
/* Finish up the collection of transformations. */
add_case_limit_trns (ds);
{
struct dictionary *pd = ds->permanent_dict;
size_t compacted_n_values = dict_count_values (pd, DC_SCRATCH);
- if (compacted_n_values < dict_get_next_value_idx (pd))
+ assert (dict_count_values (pd, 0) == dict_get_n_vars (pd));
+ if (compacted_n_values < dict_get_n_vars (pd))
{
struct caseproto *compacted_proto;
compacted_proto = dict_get_compacted_proto (pd, DC_SCRATCH);
if (c == NULL)
return NULL;
c = case_unshare_and_resize (c, dict_get_proto (ds->dict));
- caseinit_init_vars (ds->caseinit, c);
+ caseinit_restore_left_vars (ds->caseinit, c);
/* Execute permanent transformations. */
casenumber case_nr = ds->cases_written + 1;
retval = trns_chain_execute (&ds->permanent_trns_chain, case_nr, &c);
- caseinit_update_left_vars (ds->caseinit, c);
+ caseinit_save_left_vars (ds->caseinit, c);
if (retval != TRNS_CONTINUE)
continue;