From 1ea1b66c9590e614160f47a776747a6e33e84f04 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sun, 5 Jan 2020 20:01:52 -0300 Subject: [PATCH] Restores Steve's SUB ParseExpression --- source/qb64.bas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/qb64.bas b/source/qb64.bas index 70ad535c9..b2ae6dc2a 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -23581,7 +23581,7 @@ SUB ParseExpression (exp$) SELECT CASE MID$(exp$, op + c + 1, 1) CASE "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "N": numset = -1 'Valid digit CASE "-" 'We need to check if it's a minus or a negative - IF OName(OpOn) = "_PI" OR (OName(OpOn) = "PI" AND qb64prefix_set = 1) OR numset THEN EXIT DO + IF OName(OpOn) = "_PI" OR numset THEN EXIT DO CASE ELSE 'Not a valid digit, we found our separator EXIT DO END SELECT