X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fdata-list.c;h=80c9849b55b61c9812551278115756135d920813;hb=8d8d3ba512d7986d79f1edfdac409ad1c039bcc9;hp=d43af347a701693224980ea18281eaf72d6c0e60;hpb=a5097a183f00ab2d2dc538ba7094a4696e2fea04;p=pspp

diff --git a/src/language/data-io/data-list.c b/src/language/data-io/data-list.c
index d43af347a7..80c9849b55 100644
--- a/src/language/data-io/data-list.c
+++ b/src/language/data-io/data-list.c
@@ -196,7 +196,7 @@ cmd_data_list (struct lexer *lexer, struct dataset *ds)
 
                       if (lex_match_id (lexer, "TAB"))
                         delim = '\t';
-                      else if (lex_token (lexer) == T_STRING
+                      else if (lex_is_string (lexer)
                                && ds_length (lex_tokstr (lexer)) == 1)
                         {
                           delim = ds_first (lex_tokstr (lexer));