From: Ben Pfaff <blp@gnu.org>
Date: Thu, 1 Feb 2007 15:01:42 +0000 (+0000)
Subject: Accept TO in any case for use with n-ary functions.  Fixes bug #18923.
X-Git-Tag: v0.6.0~572
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2ecff1a148bee8df55a3003a407147c9af8f19c8;p=pspp-builds.git

Accept TO in any case for use with n-ary functions.  Fixes bug #18923.
Thanks to John Darrington for reporting this bug.
---

diff --git a/src/language/expressions/ChangeLog b/src/language/expressions/ChangeLog
index 98df4a36..ab993251 100644
--- a/src/language/expressions/ChangeLog
+++ b/src/language/expressions/ChangeLog
@@ -1,3 +1,9 @@
+Thu Feb  1 06:59:27 2007  Ben Pfaff  <blp@gnu.org>
+
+	* parse.c (parse_function): Accept TO in any case for use with
+	n-ary functions.  Fixes bug #18923.  Thanks to John Darrington for
+	reporting this bug.
+
 Sat Dec 16 12:20:14 2006  Ben Pfaff  <blp@gnu.org>
 
 	* operations.def: Reverse order of arguments to DATEDIFF, for
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;