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

5 years ago · 105371b868
1 changed files with 3 additions and 5 deletions
--- a/sim.c
+++ b/sim.c
@ -516,11 +516,9 @@ BEGIN_OPERATOR(konkat)
    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];
-        Glyph result = extra_params->vars_slots[var_idx];
+      PORT(1, i + 1, OUT);
-        PORT(1, i + 1, OUT);
+      POKE(1, i + 1, result);
        POKE(1, i + 1, result);
      }
    }
  }
 END_OPERATOR