Make sort stable (PR 12313).

[pspp-builds.git] / src / dictionary.c

diff --git a/src/dictionary.c b/src/dictionary.c
index 177987b59eb8585a9f72eaaaa89c17da6b9b4b93..99ea5b8bcbec501a1cd3c57fa3252351b7d0fb17 100644 (file)
--- 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++)