lexer: New function lex_force_match_phrase().

[pspp] / src / language / utilities / host.c

diff --git a/src/language/utilities/host.c b/src/language/utilities/host.c
index 45fca6175b86b17934c9417d746a19d4fa0ca10d..22d25c0eb09711e45cf5d07ce4fa84b0ac862416 100644 (file)
--- a/src/language/utilities/host.c
+++ b/src/language/utilities/host.c
@@ -293,9 +293,7 @@ cmd_host (struct lexer *lexer, struct dataset *ds UNUSED)
       return CMD_FAILURE;
     }
 
-  if (!lex_force_match_id (lexer, "COMMAND")
-      || !lex_force_match (lexer, T_EQUALS)
-      || !lex_force_match (lexer, T_LBRACK)
+  if (!lex_force_match_phrase (lexer, "COMMAND=[")
       || !lex_force_string (lexer))
     return CMD_FAILURE;