X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fdata-list.c;h=a6ed9563028ccca519ec4f5a68fd0ff13262c606;hb=eeedca3fcd959f73ba2c2fd4cbab5bd03ceb4f8d;hp=b6dc078985258011561bace4ddfcd59e91aff9c3;hpb=7ae167da42b6b2fb0701bcf6929b15cbceeede53;p=pspp

diff --git a/src/language/data-io/data-list.c b/src/language/data-io/data-list.c
index b6dc078985..a6ed956302 100644
--- a/src/language/data-io/data-list.c
+++ b/src/language/data-io/data-list.c
@@ -118,6 +118,11 @@ cmd_data_list (struct lexer *lexer, struct dataset *ds)
 	}
       else if (lex_match_id (lexer, "RECORDS"))
 	{
+          if (data_parser_get_records (parser) > 0)
+            {
+              lex_sbc_only_once ("RECORDS");
+              goto error;
+            }
 	  lex_match (lexer, T_EQUALS);
 	  lex_match (lexer, T_LPAREN);
 	  if (!lex_force_int_range (lexer, "RECORDS", 0, INT_MAX))
@@ -143,7 +148,7 @@ cmd_data_list (struct lexer *lexer, struct dataset *ds)
             }
 	  if (end)
 	    {
-	      msg (SE, _("The %s subcommand may only be specified once."), "END");
+              lex_sbc_only_once ("END");
 	      goto error;
 	    }