single-letter vars, size & append, string indexing

1 files changed, 4 insertions, 2 deletions

diff --git a/parser.c b/parser.c
index 2ae390b..279bb6e 100644
--- a/parser.c
+++ b/parser.c
@@ -404,8 +404,10 @@ variable **iparse(instance *it, const char *s)
 		// variable or function
 		if (isalpha(s[offset])) {
 			size_t end = offset + 1;
-			while (isalnum(s[end]))
-				end++;
+			if (!isupper(s[offset])) {
+				while (isalnum(s[end]))
+					end++;
+			}
 			char *name = strnclone(s + offset, end - offset);
 			ops[ooffset++] = igetvar(it, name);
 			free(name);