X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdictionary.c;h=99ea5b8bcbec501a1cd3c57fa3252351b7d0fb17;hb=304c185799902df1dd96a8ff2d13d279005a82e5;hp=177987b59eb8585a9f72eaaaa89c17da6b9b4b93;hpb=7dc203206d3f3172474a4ec0f4dcab5364f4ce26;p=pspp

diff --git a/src/dictionary.c b/src/dictionary.c
index 177987b59e..99ea5b8bcb 100644
--- a/src/dictionary.c
+++ b/src/dictionary.c
@@ -435,9 +435,8 @@ dict_delete_var (struct dictionary *d, struct variable *v)
   dict_clear_vectors (d);
 
   /* Remove V from var array. */
+  remove_element (d->var, d->var_cnt, sizeof *d->var, v->index);
   d->var_cnt--;
-  memmove (d->var + v->index, d->var + v->index + 1,
-           (d->var_cnt - v->index) * sizeof *d->var);
 
   /* Update index. */
   for (i = v->index; i < d->var_cnt; i++)