COMMON: minor perf fix

Author: chrisws

samples/distro-examples/graphics/3dtorus.bas

@@ -6,12 +6,9 @@
 ' Jelly 2004
 ' Http://rel.betterwebber.com
 
-const Xmax = 640
-const Ymax = 480
 const Xmid = Xmax/2
 const Ymid = Ymax/2
 const Lens = 256
-const PI = 3.141593
 const rings = 14
 const bands = 15
 const ringradius = 100

src/common/eval.c

@@ -1304,7 +1304,9 @@ void eval(var_t *r) {
         break;
 
       default:
-        if (code == kwTYPE_EOC || kw_check_evexit(code)) {
+        if (code == kwTYPE_EOC ||
+            code == kwTYPE_SEP ||
+            kw_check_evexit(code)) {
           IP--;
           // restore stack pointer
           eval_sp = eval_pos;

src/common/var_eval.c

@@ -216,7 +216,11 @@ int code_isvar() {
   }
 
   if (var_p) {
-    if (kw_check_evexit(code_peek()) || code_peek() == kwTYPE_LEVEL_END) {
+    byte code = code_peek();
+    if (code == kwTYPE_EOC ||
+        code == kwTYPE_SEP ||
+        code == kwTYPE_LEVEL_END ||
+        kw_check_evexit(code)) {
       // restore IP
       prog_ip = cur_ip;
       return 1;