summaryrefslogtreecommitdiff
path: root/lang/rexx-imc/files/patch-util.c
blob: aec63e831648c1a9a8151c387ef93329c4ec31a9 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
--- util.c	Tue Feb 26 12:29:20 2002
+++ util.c.new	Thu Jun 20 14:50:03 2002
@@ -1404,7 +1404,7 @@
             else token=0;
          }
          else if(token>=Command&&start){ /* at the start must be a "command" */
-            if(token==THEN);             /* except THEN, PULL and ARG */
+            if(token==THEN||token==UPPER); /* except THEN, UPPER, PULL and ARG */
             else if(token==ARG||token==PULL)
                prgptr++[0]=PARSE,
                prgptr++[0]=UPPER,
@@ -1415,7 +1415,7 @@
          if(!token); /* no need to check if there is no token */
          else if(token==VALUE)if(last==ADDRESS||last==FORM||last==TRACE
                                ||last==PARSE||last==SIGNAL);else token=0;
-         else if(token==UPPER)if(last==PARSE);else token=0;
+         else if(token==UPPER)if(start||last==PARSE);else token=0;
          else if(token>=PULL&&token<=LINEIN)if(last==PARSE);else token=0;
          else if(token==WITH)if(first==VALUE);else token=0;
          else if(token==ON||token==OFF)if(last==SIGNAL||last==CALL)