X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmodify-vars.c;h=f12cb7ed63e30e32c27f4df0fb833460ce99c686;hb=74a57f26f1458b28a0fddbb9f46004ac8f4d9c30;hp=bce6ea1bb337daef2736bba4de9c761f0ed4bbeb;hpb=7b98b3a4f58f6dc5a8e9cbc188b627966d5e652d;p=pspp

diff --git a/src/modify-vars.c b/src/modify-vars.c
index bce6ea1bb3..f12cb7ed63 100644
--- a/src/modify-vars.c
+++ b/src/modify-vars.c
@@ -83,8 +83,12 @@ cmd_modify_vars (void)
 
   size_t i;
 
-  lex_match_id ("MODIFY");
-  lex_match_id ("VARS");
+  if (temporary != 0)
+    {
+      msg (SE, _("MODIFY VARS may not be used after TEMPORARY.  "
+                 "Temporary transformations will be made permanent."));
+      cancel_temporary (); 
+    }
 
   vm.reorder_vars = NULL;
   vm.reorder_cnt = 0;
@@ -309,7 +313,7 @@ cmd_modify_vars (void)
   if (already_encountered & (1 | 4))
     {
       /* Read the data. */
-      procedure (NULL, NULL, NULL);
+      procedure (NULL, NULL);
     }
 
   if (!rearrange_dict (default_dict, &vm))