From a3c3a2f44a33710ad0b6d49f278d9723a9e5cbab Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sun, 3 May 2020 20:36:35 -0400 Subject: [PATCH] Remove unused DELW --- blk/037 | 6 +++--- blk/434 | 1 - emul/forth.bin | Bin 5642 -> 5624 bytes 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/blk/037 b/blk/037 index dc63872..ea01792 100644 --- a/blk/037 +++ b/blk/037 @@ -10,7 +10,7 @@ Entry management , n -- Write n in HERE and advance it. ALLOT n -- Move HERE by n bytes C, b -- Write byte b in HERE and advance it. -DELW a -- Delete wordref at a. If it shadows another - definition, that definition is unshadowed. EMPTY -- Rewind HERE and CURRENT where they were at - system initialization. (cont.) + system initialization. + + (cont.) diff --git a/blk/434 b/blk/434 index fb01d02..83393ec 100644 --- a/blk/434 +++ b/blk/434 @@ -6,5 +6,4 @@ LOOP 2DROP ; -: DELW 1- 0 SWAP C! ; : PREV 3 - DUP @ - ; diff --git a/emul/forth.bin b/emul/forth.bin index 6a5486e510d971ac87803631db4539bdd1157c07..6821b9ae178f0374e88452e4c8046eb8125b82f8 100644 GIT binary patch delta 1009 zcmXw2%}*0S6o30st%c5XyRC?5T%f@&AH`slNNj}xQLrqe1;oUJAT4Mpv}rM&nn;|VKE*poY<~~gQEj=2=SW&A@lWLB;T7qfC$Jgsc6mc_cUpi$h=ySH)&Zi z;0&Z)i?9z~NDOt8@ZDx`E&>vv${yvzzG$S+S0dsth|DxP$%6DnPWe(k2D1bsg-jok z%Tmf$l47B1?eL@i<3~jmVm5+{O~KoQK2>aaT21pg|FP3t z`=#BH7vYa>(Yz*986<|{*4e{23=!I`l%++e2P9}8>V)*NKh0nJ+bGj;8t_>DQOC6q z+~?o?y%W2BT#5Ll=JtA|8z4i?5EGLZ;Wa!oc|}xgU{*CtxEkU9k4=Fsp4ZLwm~PAS zYA1fH;wE}Jb*db}b4wakg`dH2d@6bI5MCQYvuM>*-3jm4FubCdB|)h*0=Gk8TlP8< zRoUh?Bv04WB0XYvMfW^?Acm?!k?!HR<0Hw*22|YE4e-IJT9FZGJD%O1E_j*%5e&FD?X^`J2EwX`BBJbh`Fvh8B2x zFe+L6y7PS=?CQA{}d}8Eqr@MX}Ys#%gP7LlR@%*l2%JP&T zJMI_ID~6Nl_RVmIsa#q-TwGzoCqSe&gUTH6Lxl;5_cvCNQAK^p8fvbicz-hn&+#l5 zkV^C!prNBvRYnTANtc0-t*{brheH0!xRc9Ybtd!Ia^si*g^J`axegMLLH?4C(mDB- zr`!q~(-+mxysS8I5GH(6&;TzLfxIdB=?ORz1%+|VH055iI~q4DjGln#NNY7&P`;|O z=Bz1Tl%XZj975-^GHaIP6SLJv%930%ySplEL-Q1T^PXxi6?$`6N$m7c;wGk*<*Q0Y zAE}0KQ3X7c+pXTwaZA9!sYtC>6>89J!qU^$J)L0WVs3KU<J0{Y{pQztfJ*aV8HRj+Ef9JSDV)h;XK zQfmZl2VqZbt5Vcxw|1a&rp^}KO}k6oGY$a_RfiHcaYy0