Fix stack leak in LIST
This commit is contained in:
parent
3615944ffa
commit
a88c2b6b42
2
blk/382
2
blk/382
@ -3,7 +3,7 @@
|
|||||||
16 0 DO
|
16 0 DO
|
||||||
I 1+ DUP 10 < IF SPC THEN . SPC
|
I 1+ DUP 10 < IF SPC THEN . SPC
|
||||||
64 I * BLK( + DUP 64 + SWAP DO
|
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
|
LOOP
|
||||||
NL
|
NL
|
||||||
LOOP ;
|
LOOP ;
|
||||||
|
BIN
cvm/forth.bin
BIN
cvm/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user