X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmodify-vars.c;h=46fe644d105b7bd0c7520449e4ff415606ce8eb3;hb=14e7292894533c5491a774a2d749386362660812;hp=c68941a39dce48e290faa034cdf0cf02656785b5;hpb=458f79fdf6fbd044cbfc4831b184280a82cf8d81;p=pspp-builds.git

diff --git a/src/modify-vars.c b/src/modify-vars.c
index c68941a3..46fe644d 100644
--- a/src/modify-vars.c
+++ b/src/modify-vars.c
@@ -83,6 +83,13 @@ 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 (); 
+    }
+
   lex_match_id ("MODIFY");
   lex_match_id ("VARS");
 
@@ -309,7 +316,7 @@ cmd_modify_vars (void)
   if (already_encountered & (1 | 4))
     {
       /* Read the data. */
-      procedure (NULL, NULL, NULL, NULL);
+      procedure (NULL, NULL);
     }
 
   if (!rearrange_dict (default_dict, &vm))