Fix recently introduces bug in LIST /CASES

[pspp] / src / language / data-io / list.c

diff --git a/src/language/data-io/list.c b/src/language/data-io/list.c
index c7f85f3917d780f564a1060ce1f8d639aee77b37..90564e7a137c3d774ea3e1945674b08e05bb2bcd 100644 (file)
--- a/src/language/data-io/list.c
+++ b/src/language/data-io/list.c
@@ -193,7 +193,7 @@ cmd_list (struct lexer *lexer, struct dataset *ds)
 
           if (lex_force_int (lexer))
             {
-              lex_match_int (lexer, &cmd.first);
+             cmd.first = lex_integer (lexer);
               lex_get (lexer);
             }