1 files changed, 39 insertions, 37 deletions

diff --git a/int_array.c b/int_array.c
index 6cffec86..c244169f 100644
--- a/int_array.c
+++ b/int_array.c
@@ -167,49 +167,51 @@ is_integer(NODE *symbol, NODE *subs)
 	 * a[-3]=1; print "-3" in a  -- true
 	 */
 
-	if ((subs->flags & (STRING|STRCUR)) != 0) {
-		char *cp = subs->stptr, *cpend, *ptr;
-		char save;
-		size_t len = subs->stlen;
+	/* must be a STRING */
+	char *cp = subs->stptr, *cpend, *ptr;
+	char save;
+	size_t len = subs->stlen;
 
-		if (len == 0 || (! isdigit((unsigned char) *cp) && *cp != '-'))
-			return NULL;
-		if (len > 1 && 
-			((*cp == '0')		/* "00", "011" .. */
-				|| (*cp == '-' && *(cp + 1) == '0')	/* "-0", "-011" .. */
-			)
-		)
-			return NULL;
-		if (len == 1 && *cp != '-') {	/* single digit */
-			subs->numbr = (long) (*cp - '0');
-			if ((subs->flags & MAYBE_NUM) != 0) {
-				subs->flags &= ~MAYBE_NUM;
-				subs->flags |= NUMBER;
-			}
-			subs->flags |= (NUMCUR|NUMINT);
-			return & success_node;
-		}
-
-		cpend = cp + len;
-		save = *cpend;
-		*cpend = '\0';
+	if (len == 0 || (! isdigit((unsigned char) *cp) && *cp != '-'))
+		return NULL;
 
-		errno = 0;
-		l = strtol(cp, & ptr, 10);
-		*cpend = save;
-		if (errno != 0 || ptr != cpend)
-			return NULL;
-		subs->numbr = l;
+	if (len > 1 && 
+		((*cp == '0')		/* "00", "011" .. */
+			|| (*cp == '-' && *(cp + 1) == '0')	/* "-0", "-011" .. */
+		)
+	)
+		return NULL;
+	if (len == 1 && *cp != '-') {	/* single digit */
+		subs->numbr = (long) (*cp - '0');
 		if ((subs->flags & MAYBE_NUM) != 0) {
-			subs->flags &= ~MAYBE_NUM;
+			subs->flags &= ~(MAYBE_NUM|STRING);
 			subs->flags |= NUMBER;
 		}
-		subs->flags |= NUMCUR;
-		if (l <= INT32_MAX && l >= INT32_MIN) {
-			subs->flags |= NUMINT;
-			return & success_node;
-		}
+		subs->flags |= (NUMCUR|NUMINT);
+		return & success_node;
 	}
+
+	cpend = cp + len;
+	save = *cpend;
+	*cpend = '\0';
+
+	errno = 0;
+	l = strtol(cp, & ptr, 10);
+	*cpend = save;
+	if (errno != 0 || ptr != cpend)
+		return NULL;
+
+	subs->numbr = l;
+	if ((subs->flags & MAYBE_NUM) != 0) {
+		subs->flags &= ~(MAYBE_NUM|STRING);
+		subs->flags |= NUMBER;
+	}
+	subs->flags |= NUMCUR;
+	if (l <= INT32_MAX && l >= INT32_MIN) {
+		subs->flags |= NUMINT;
+		return & success_node;
+	}
+
 	return NULL;
 #endif /* CHECK_INTEGER_USING_FORCE_NUMBER */
 }