X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ft-test-parser.c;h=660997e95c25ffa4b7af3c452a7771f8a4f7f80a;hb=63ae14f7f555727026138e1668e6cf91a9046bc0;hp=6b14adbdb35ff4c6b072583a54c1ba2104f730ce;hpb=137fae2d8d88234543d9b41286c20e6ba8b2cd98;p=pspp

diff --git a/src/language/stats/t-test-parser.c b/src/language/stats/t-test-parser.c
index 6b14adbdb3..660997e95c 100644
--- a/src/language/stats/t-test-parser.c
+++ b/src/language/stats/t-test-parser.c
@@ -100,8 +100,9 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
 	      value_init (&gval0, var_get_width (gvar));
 	      parse_value (lexer, &gval0, gvar);
 	      cut = true;
-	      if (lex_match (lexer, T_COMMA))
+	      if (lex_token (lexer) != T_RPAREN)
 		{
+		  lex_match (lexer, T_COMMA);
 		  value_init (&gval1, var_get_width (gvar));
 		  parse_value (lexer, &gval1, gvar);
 		  cut = false;
@@ -272,7 +273,7 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
       else if (lex_match_id (lexer, "CRITERIA"))
 	{
           lex_match (lexer, T_EQUALS);
-	  if ( lex_force_match_id (lexer, "CI"))
+	  if ( lex_match_id (lexer, "CIN") || lex_force_match_id (lexer, "CI"))
 	    if ( lex_force_match (lexer, T_LPAREN))
 	      {
 		lex_force_num (lexer);