Fixed crash from FLIP when a numeric variable is specified on NEWNAMES

[pspp] / src / set.q

diff --git a/src/set.q b/src/set.q
index 439d52a2ec2a3c12f76add3d1f5b722321bba1bc..c34a6a8aff79b757eabf8be062bdfc768008c5e4 100644 (file)
--- a/src/set.q
+++ b/src/set.q
@@ -311,9 +311,9 @@ cmd_set (void)
   if (cmd.s_scripttab)
     msg (SE, _("%s is obsolete."),"SCRIPTTAB");
   if (cmd.s_tbfonts)
-    msg (SW, _("TBFONTS not implemented."));
+    msg (SW, _("%s is not yet implemented."),"TBFONTS");
   if (cmd.s_tb1)
-    msg (SW, _("TB1 not implemented."));
+    msg (SW, _("%s is not yet implemented."),"TB1");
   if (cmd.undef != -1)
     set_undefined = cmd.undef == STC_NOWARN ? 0 : 1;
   if (cmd.n_workspace != NOT_LONG)
@@ -617,6 +617,7 @@ stc_custom_seed (struct cmd_set *cmd unused)
       set_seed = tokval;
       lex_get ();
     }
+  set_seed_used=1;
   return 1;
 }
 
@@ -842,7 +843,7 @@ stc_custom_viewlength (struct cmd_set *cmd unused)
     }
 
 #if __MSDOS__
-  msg (SW, _("VIEWLENGTH not implemented."));
+  msg (SW, _("%s is not yet implemented."),"VIEWLENGTH");
 #endif /* dos */
   return 1;
 }