|
@ -535,10 +535,13 @@ BEGIN_OPERATOR(jump) |
|
|
POKE(1, 0, PEEK(-1, 0)); |
|
|
POKE(1, 0, PEEK(-1, 0)); |
|
|
END_OPERATOR |
|
|
END_OPERATOR |
|
|
|
|
|
|
|
|
|
|
|
// Note: this is merged from a pull request without being fully tested or
|
|
|
|
|
|
// optimized
|
|
|
BEGIN_OPERATOR(konkat) |
|
|
BEGIN_OPERATOR(konkat) |
|
|
LOWERCASE_REQUIRES_BANG; |
|
|
LOWERCASE_REQUIRES_BANG; |
|
|
Isz len = (Isz)index_of(PEEK(0, -1)); |
|
|
Isz len = (Isz)index_of(PEEK(0, -1)); |
|
|
if (len == 0) len = 1; |
|
|
if (len == 0) |
|
|
|
|
|
len = 1; |
|
|
PORT(0, -1, IN | PARAM); |
|
|
PORT(0, -1, IN | PARAM); |
|
|
for (Isz i = 0; i < len; ++i) { |
|
|
for (Isz i = 0; i < len; ++i) { |
|
|
PORT(0, i + 1, IN); |
|
|
PORT(0, i + 1, IN); |
|
|