Check the return value of various calls to lex_force_match.

[pspp] / src / language / stats / regression.c

diff --git a/src/language/stats/regression.c b/src/language/stats/regression.c
index 66a5abaf7c8aa7011d071bc5a9837c06904451e5..a534a8e8eaced2556a34fdd77dce7c687bb654f9 100644 (file)
--- a/src/language/stats/regression.c
+++ b/src/language/stats/regression.c
@@ -286,7 +286,8 @@ cmd_regression (struct lexer *lexer, struct dataset *ds)
                    {
                      regression.ci = lex_number (lexer) / 100.0;
                      lex_get (lexer);
-                     lex_force_match (lexer, T_RPAREN);
+                     if (! lex_force_match (lexer, T_RPAREN))
+                       goto error;
                    }
                 }
               else