X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Flist.c;h=55ccc4d2da3e15b843ab1acd4c0aca0232599100;hb=86454c8ab63804d02cb4f08e8b5e45299b8eb810;hp=e3c38c7a6d1a52d0eeba7d52837f1cf49b9475d8;hpb=a74ac710e3cd2b6a52fd763ab31ce68e83f21dfe;p=pspp

diff --git a/src/language/data-io/list.c b/src/language/data-io/list.c
index e3c38c7a6d..55ccc4d2da 100644
--- a/src/language/data-io/list.c
+++ b/src/language/data-io/list.c
@@ -85,7 +85,7 @@ list_execute (const struct lst_cmd *lcmd, struct dataset *ds)
   while (casegrouper_get_next_group (grouper, &group))
     {
       struct ccase *ccase;
-      struct table *t;
+      struct table *t = NULL;
 
       ccase = casereader_peek (group, 0);
       if (ccase != NULL)
@@ -128,7 +128,8 @@ list_execute (const struct lst_cmd *lcmd, struct dataset *ds)
 
       casereader_destroy (group);
 
-      table_item_submit (table_item_create (t, "Data List", NULL));
+      if (t)
+	table_item_submit (table_item_create (t, "Data List", NULL));
     }
   ok = casegrouper_destroy (grouper);
   ok = proc_commit (ds) && ok;
@@ -213,7 +214,7 @@ cmd_list (struct lexer *lexer, struct dataset *ds)
           return CMD_FAILURE;
         }
     }
-        
+
 
   /* Verify arguments. */
   if (cmd.first > cmd.last)
@@ -228,15 +229,15 @@ cmd_list (struct lexer *lexer, struct dataset *ds)
 
   if (cmd.first < 1)
     {
-      msg (SW, _("The first case (%ld) to list is less than 1.  The value is "
-                 "being reset to 1."), cmd.first);
+      msg (SW, _("The first case (%ld) to list is numbered less than 1.  "
+                 "The value is being reset to 1."), cmd.first);
       cmd.first = 1;
     }
 
   if (cmd.last < 1)
     {
-      msg (SW, _("The last case (%ld) to list is less than 1.  The value is "
-                 "being reset to 1."), cmd.last);
+      msg (SW, _("The last case (%ld) to list is numbered less than 1.  "
+                 "The value is being reset to 1."), cmd.last);
       cmd.last = 1;
     }