From b6d66ec3f328d0e8bf35b71f29332695121f7173 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Wed, 21 Feb 2018 11:33:23 -0800 Subject: [PATCH] lexer: Fix implementation of lex_force_string_or_id(). Change a test to make sure that it works. Found by inspection. --- src/language/lexer/lexer.c | 2 +- tests/language/control/do-repeat.at | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/language/lexer/lexer.c b/src/language/lexer/lexer.c index 5c61c8def4..a3642f8a6c 100644 --- a/src/language/lexer/lexer.c +++ b/src/language/lexer/lexer.c @@ -644,7 +644,7 @@ lex_force_string (struct lexer *lexer) bool lex_force_string_or_id (struct lexer *lexer) { - return lex_is_integer (lexer) || lex_force_string (lexer); + return lex_token (lexer) == T_ID || lex_force_string (lexer); } /* If the current token is an integer, does nothing and returns true. diff --git a/tests/language/control/do-repeat.at b/tests/language/control/do-repeat.at index 4afd5eaf52..e52b7ad999 100644 --- a/tests/language/control/do-repeat.at +++ b/tests/language/control/do-repeat.at @@ -88,7 +88,7 @@ END FILE. END INPUT PROGRAM. DO REPEAT x = 1 2 3. -INCLUDE 'include.sps'. +INCLUDE include.sps. END REPEAT. LIST. -- 2.30.2