Fix stack leak in LIST

2020-11-08 17:30:27 -05:00 · 2020-11-08 17:30:27 -05:00 · a88c2b6b42
parent 3615944ffa
commit a88c2b6b42
2 changed files with 1 additions and 1 deletions
--- a/blk/382
+++ b/blk/382
@ -3,7 +3,7 @@
    16 0 DO
        I 1+ DUP 10 < IF SPC THEN . SPC
        64 I * BLK( + DUP 64 + SWAP DO
-            I C@ DUP 0x1f > IF EMIT ELSE LEAVE THEN
+            I C@ DUP 0x1f > IF EMIT ELSE DROP LEAVE THEN
        LOOP
        NL
    LOOP ;
--- a/cvm/forth.bin
+++ b/cvm/forth.bin