* command.c: (do_parse_command) Issue an error for unimplemented

[pspp-builds.git] / src / language / command.c

diff --git a/src/language/command.c b/src/language/command.c
index 16a663c50b731fa8c55a28377a9ce09eda4afc14..ae16d9bbc98c307c76d06308071424e3e2693b85 100644 (file)
--- a/src/language/command.c
+++ b/src/language/command.c
@@ -178,8 +178,11 @@ do_parse_command (enum cmd_state state)
   command = parse_command_name ();
   if (command == NULL)
     return CMD_FAILURE;
-  else if (command->function == NULL)
-    return CMD_NOT_IMPLEMENTED;
+  else if (command->function == NULL) 
+    {
+      msg (SE, _("%s is unimplemented."), command->name);
+      return CMD_NOT_IMPLEMENTED; 
+    }
   else if ((command->flags & F_TESTING) && !get_testing_mode ()) 
     {
       msg (SE, _("%s may be used only in testing mode."), command->name);