mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 04:18:05 +11:00
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
|
||||
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 ;
|
||||
|
BIN
cvm/forth.bin
BIN
cvm/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user