From: Jason S. Ninneman <jsn@mbar.us>
Date: Sat, 3 Jun 2017 18:09:48 +0000 (-0700)
Subject: Rescope and retype a variable.
X-Git-Tag: 0.90~20
X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=commitdiff_plain;h=4babd6d05829d1710f68914a25dd6c1ba30fe204

Rescope and retype a variable.
---

diff --git a/misc.c b/misc.c
index 1224bc0..04792eb 100644
--- a/misc.c
+++ b/misc.c
@@ -263,7 +263,6 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
  *  end of the line, the word is filled up with blanks (which encode as 0's).
  *  If we're already at end of line when TEXT is called, we return -1. */
 
-  long CHAR;
   long TEXT;
   static long SPLITTING = -1;
 
@@ -283,12 +282,12 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
     TEXT=TEXT*64;
     if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
       continue;
-    CHAR=INLINE[LNPOSN];
-    if(CHAR < 63) {
+    char current=INLINE[LNPOSN];
+    if(current < 63) {
       SPLITTING = -1;
-      if(UPPER && CHAR >= 37)
-        CHAR=CHAR-26;
-      TEXT=TEXT+CHAR;
+      if(UPPER && current >= 37)
+        current=current-26;
+      TEXT=TEXT+current;
       LNPOSN=LNPOSN+1;
       continue;
     }
@@ -298,7 +297,7 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
       continue;
     }
 
-    TEXT=TEXT+CHAR-63;
+    TEXT=TEXT+current-63;
     SPLITTING = -1;
     LNPOSN=LNPOSN+1;
   }