From a88c2b6b42f9104f303879cda345cade325a7053 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 8 Nov 2020 17:30:27 -0500
Subject: [PATCH] Fix stack leak in LIST

---
 blk/382       |   2 +-
 cvm/forth.bin | Bin 5130 -> 5132 bytes
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/blk/382 b/blk/382
index 63a0d47..e2ff367 100644
--- 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 ;
diff --git a/cvm/forth.bin b/cvm/forth.bin
index 086d78c8f5e7a8e5a373c69cdf026117bfb083a1..6b97f0c26f0522d7cb87080fe6fe1691d0bb61d7 100644
GIT binary patch
delta 250
zcmeCu=+WS00D?F{b=DUfITiUOS*I~vVzy#<#>Z;KutkQ!(=Ws|C?Lo+BzdwU{~XZ{
zekTSFhIfpzj58UX7}&rp*U6vw{TSCwb`+2Tk}(1bjDC}A1uikVP7V;%m+uyEVpz-~
z&Emu`3&{Gw3u1i+Vm?+7t7Gy!L4BagbAob=0h8YfmN3dsP7+FHESP*uNCU`zFC@wM
zax$l|p{S&=6T=3U$?P%=j!ynTAxeS_ZH(5F{e?AE<%O05MMM2UJblC%T7k~eXPC_H
d$i%@2k%$&zXaw3YS6CWo>P}%*AbDR{8vy3{K6?NF

delta 269
zcmeCt=+fY10D>4nb=GGaITiWEnJ+P0F}&bowPM&N!{F%`;u;hX<QkGV*_nTiXdAy1
z0|&!9Mp?$0j7|(}V3zabFZ_NotN3LYeEc0<f&>^?8J9E8XGmahXKZ2U<KbgnH91Z|
zfzfAjy}%_#=gC2W`tqFuP7I4#q*<I8W&l|qctNbsK+MMqVzo_PAgB*ic|lN)(Qop5
z!4gK<$tgm~jCqq!2x$P>AB7|tpHJo%HWU>Xc4FATGMQb5!O_V-C`3t+p^edUa-guL
ys;tm*plGOHh^LPjLo3j&`V5oV9ho>7ArjF-42?h=<_k*$P2DZ53M3y2YXbnNX+gpO