X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fsort-cases.c;h=8998120addee90db4de6b6fcb2a038c2f262b30f;hb=691c25e36fd1ee722dd35419d6110e3876b99f9c;hp=deb8b5cbc97b00f1ee4cd7da54bbff8701260ffa;hpb=ed09f0f21add5e56e8395a5e8589cda6f96420bf;p=pspp-builds.git diff --git a/src/language/stats/sort-cases.c b/src/language/stats/sort-cases.c index deb8b5cb..8998120a 100644 --- a/src/language/stats/sort-cases.c +++ b/src/language/stats/sort-cases.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2010 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -52,9 +52,9 @@ cmd_sort_cases (struct lexer *lexer, struct dataset *ds) if (!parse_sort_criteria (lexer, dataset_dict (ds), &ordering, NULL, NULL)) return CMD_CASCADING_FAILURE; - if (settings_get_testing_mode () && lex_match (lexer, '/')) + if (settings_get_testing_mode () && lex_match (lexer, T_SLASH)) { - if (!lex_force_match_id (lexer, "BUFFERS") || !lex_match (lexer, '=') + if (!lex_force_match_id (lexer, "BUFFERS") || !lex_match (lexer, T_EQUALS) || !lex_force_int (lexer)) goto done;