X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Futilities%2Finclude.c;h=a05456e2a2e8ff7366556865d1eb1e40b023f239;hb=a3368f3a6ecbc0ec5aa1212efe534288b277f13c;hp=89da3b9bf517b86f7dff167a0acec0842c014852;hpb=9c0c7dab25469d36b7dcee5df45e1f5767cccb5b;p=pspp-builds.git

diff --git a/src/language/utilities/include.c b/src/language/utilities/include.c
index 89da3b9b..a05456e2 100644
--- a/src/language/utilities/include.c
+++ b/src/language/utilities/include.c
@@ -59,12 +59,8 @@ do_insert (struct lexer *lexer, struct dataset *ds, enum variant variant)
   if (lex_match_id (lexer, "FILE"))
     lex_match (lexer, T_EQUALS);
 
-  /* File name can be identifier or string. */
-  if (lex_token (lexer) != T_ID && !lex_is_string (lexer))
-    {
-      lex_error (lexer, _("expecting file name"));
-      return CMD_FAILURE;
-    }
+  if (!lex_force_string_or_id (lexer))
+    return CMD_FAILURE;
 
   relative_name = utf8_to_filename (lex_tokcstr (lexer)); 
   filename = include_path_search (relative_name);