shithub: orca

Download patch

ref: 857cb5de4fffe19c5a3414d150b50de14bd11a43
parent: c9e8d97ff3135493df7478c374fa93514c3be75d
author: Sigrid Haflínudóttir <ftrvxmtrx@gmail.com>
date: Sun May 10 07:10:55 EDT 2020

sim: K (konkat): index 0 is a valid variable index

--- a/sim.c
+++ b/sim.c
@@ -555,12 +555,10 @@
     Glyph var = PEEK(0, i + 1);
     if (var != '.') {
       Usz var_idx = index_of(var);
-      if (var_idx != 0) {
-        Glyph result = extra_params->vars_slots[var_idx];
-        sprintf(t, "out%ld", i);
-        PORT(1, i + 1, OUT, t);
-        POKE(1, i + 1, result);
-      }
+      Glyph result = extra_params->vars_slots[var_idx];
+      sprintf(t, "out%ld", i);
+      PORT(1, i + 1, OUT, t);
+      POKE(1, i + 1, result);
     }
   }
 END_OPERATOR