X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fmodify-variables.c;h=1632f6ea0db7aecda785b929f72fd544af469b30;hb=84e4d346b557748b62d43158c1b50f655e357f9f;hp=7b8d5681fba57f8ed72cbaae1dd2f152a1d04eec;hpb=a19b858e0ac3c69e4a28c0ca6d8674427268a863;p=pspp diff --git a/src/language/dictionary/modify-variables.c b/src/language/dictionary/modify-variables.c index 7b8d5681fb..1632f6ea0d 100644 --- a/src/language/dictionary/modify-variables.c +++ b/src/language/dictionary/modify-variables.c @@ -18,21 +18,25 @@ 02110-1301, USA. */ #include + #include -#include -#include + +#include +#include +#include +#include +#include +#include #include +#include +#include #include -#include #include -#include -#include #include -#include +#include +#include #include #include -#include -#include #include "gettext.h" #define _(msgid) gettext (msgid) @@ -88,12 +92,9 @@ cmd_modify_vars (void) size_t i; - if (temporary != 0) - { - msg (SE, _("MODIFY VARS may not be used after TEMPORARY. " - "Temporary transformations will be made permanent.")); - cancel_temporary (); - } + if (proc_make_temporary_transformations_permanent ()) + msg (SE, _("MODIFY VARS may not be used after TEMPORARY. " + "Temporary transformations will be made permanent.")); vm.reorder_vars = NULL; vm.reorder_cnt = 0; @@ -259,7 +260,7 @@ cmd_modify_vars (void) compare_variables_given_ordering, &forward_positional_ordering) != drop_cnt) - assert (0); + NOT_REACHED (); free (keep_vars); free (all_vars); @@ -420,7 +421,7 @@ validate_var_modification (const struct dictionary *d, keep_vars, compare_variables_given_ordering, &forward_positional_ordering) != keep_cnt) - assert (0); + NOT_REACHED (); /* Copy variables into var_renaming array. */ var_renaming = xnmalloc (keep_cnt, sizeof *var_renaming); @@ -514,7 +515,7 @@ rearrange_dict (struct dictionary *d, const struct var_modification *vm) /* Do renaming. */ if (dict_rename_vars (d, rename_vars, rename_new_names, rename_cnt, NULL) == 0) - assert (0); + NOT_REACHED (); /* Clean up. */ for (i = 0; i < vm->rename_cnt; i++)