X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=inline;f=src%2Flanguage%2Fexpressions%2Fparse.c;fp=src%2Flanguage%2Fexpressions%2Fparse.c;h=695d3caf6d5b7a13880aa8c9d05447d1586a4ab7;hb=2ecff1a148bee8df55a3003a407147c9af8f19c8;hp=5c1e4632fd5105d50ea840d4fdb93381dc9f11ec;hpb=108b065bd799f003c05bc3cbf2334078b43540f3;p=pspp-builds.git

diff --git a/src/language/expressions/parse.c b/src/language/expressions/parse.c
index 5c1e4632..695d3caf 100644
--- a/src/language/expressions/parse.c
+++ b/src/language/expressions/parse.c
@@ -1216,7 +1216,8 @@ parse_function (struct lexer *lexer, struct expression *e)
   if (lex_token (lexer) != ')')
     for (;;)
       {
-        if (lex_token (lexer) == T_ID && lex_look_ahead (lexer) == 'T')
+        if (lex_token (lexer) == T_ID
+            && toupper (lex_look_ahead (lexer)) == 'T')
           {
             struct variable **vars;
             size_t var_cnt;