Another tweak yo isnumber()

2024-06-30 05:10:37 +00:00 · 2018-10-02 23:31:43 -03:00 · 2018-10-02 23:31:43 -03:00 · 14e5866c4b
parent 78c4de7f6c
commit 14e5866c4b
1 changed files with 1 additions and 1 deletions
--- a/source/qb64.bas
+++ b/source/qb64.bas
@ -18832,7 +18832,7 @@ FUNCTION isnumber (a$)
    FOR i = 1 TO LEN(a$)
        a = ASC(MID$(a$, i, 1))
        IF a = 45 THEN
-            IF i = 1 OR (i > 1 AND (d = i - 1 OR e = i - 1)) THEN _CONTINUE
+            IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND (d = i - 1 OR e = i - 1)) THEN _CONTINUE
            EXIT FUNCTION
        END IF
        IF a = 46 THEN