lexer: New function lex_force_match_phrase().

[pspp] / src / language / data-io / data-reader.c

diff --git a/src/language/data-io/data-reader.c b/src/language/data-io/data-reader.c
index d34067e81910005d088c0410f711091e1b6e22dd..6e8c82bf0b673b41ec6a23ae83fa14ebcfadced4 100644 (file)
--- a/src/language/data-io/data-reader.c
+++ b/src/language/data-io/data-reader.c
@@ -216,8 +216,7 @@ read_inline_record (struct dfm_reader *r)
       while (lex_token (r->lexer) == T_ENDCMD)
         lex_get (r->lexer);
 
-      if (!lex_force_match_id (r->lexer, "BEGIN")
-          || !lex_force_match_id (r->lexer, "DATA"))
+      if (!lex_force_match_phrase (r->lexer, "BEGIN DATA"))
         return false;
 
       lex_match (r->lexer, T_ENDCMD);