From dda80801d50004211c3d6d9ddf5b3dd2ded0c776 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Wed, 9 Dec 2020 17:17:53 -0500 Subject: [PATCH] Remove WORD( and PREV They're only used once. --- blk.fs | 17 ++++++----------- cvm/stage.bin | Bin 4960 -> 4935 bytes 2 files changed, 6 insertions(+), 11 deletions(-) diff --git a/blk.fs b/blk.fs index 1aed37f..9d88b9e 100644 --- a/blk.fs +++ b/blk.fs @@ -1870,7 +1870,6 @@ SYSVARS 0x0c + :** C<* LOOP THEN 2DROP ; : MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ; ( ----- 368 ) -: PREV 3 - DUP @ - ; : [entry] ( w -- ) C@+ ( w+1 len ) TUCK MOVE, ( len ) ( write prev value ) @@ -1881,19 +1880,15 @@ SYSVARS 0x0c + :** C<* : CREATE (entry) 2 ( cellWord ) C, ; : VARIABLE CREATE 2 ALLOT ; ( ----- 369 ) -: WORD( - DUP 1- C@ ( name len field ) - 127 AND ( 0x7f. remove IMMEDIATE flag ) - 3 + ( fixed header len ) - - -; : FORGET - ' DUP ( w w ) + ' DUP ( w w ) ( HERE must be at the end of prev's word, that is, at the beginning of w. ) - WORD( HERE ! ( w ) - PREV CURRENT ! -; + DUP 1- C@ ( name len field ) + 0x7f AND ( remove IMMEDIATE flag ) + 3 + ( fixed header len ) + - HERE ! ( w ) + ( get prev addr ) 3 - DUP @ - CURRENT ! ; : EMPTY LIT" _sys" FIND IF DUP HERE ! CURRENT ! THEN ; ( ----- 370 ) : DOES> diff --git a/cvm/stage.bin b/cvm/stage.bin index 5d38b15d750a9af58ad9aba4195a900a4a072564..6827b77e1f7034e6086c15550ff67f416373f225 100644 GIT binary patch delta 956 zcmYjQ-Ahza5TChw*8R92dv`T7ylSg@E~a2bE?3eFc?2DB%mZK8<`0YBZ_>25%@yC;=y0y}mA z8=aY(8J5BzXTXs7756FohHJqw!VB*EsPc#$nBR3*;VN#^-vBdy?r;DY-Te58&Ma^g z@03gYeBap$!rUcw7;I_TvToJMIs?Lfo1)m4!GKwcCE(s$07XzjwPS7{t3TF5^)pmu z6QGrG9AnQ3PN+LhAE0t`SRVQ?%{7Mr#R{2=lYJ?R>9ot0N0D~l*;Uaj<^ z!l#sKZ02{BmX=$}5);ROhJk}b(@)GRdBuQHHz4I|LIjpr2J*@dGl3EI7;)>z@4}2b z)L#6+)9Pg9qAG0NAnKwNOi;;eTBRc6{Ihx-AM-M;QTn6uPVEGi^P5^_U6u;cEx=AJ zSfSkTo7`Iq)T z$^q~UP#VSO0T5Kj6Kx%#J4CH$fP^tmQI*t5RlpSx6lS1V*<&$J1b*$mh797k=&@q8 zP9oE74?n4gDYwgdBmE!gA>86`_3&g)H;J!$;_4Vli>i>m(Al$eBHR@okVq8kti-k`pS@nY5%R$U{WuAP^-w6cHv}4C#BL5DmOE<^zkJ*lv$AtXi7#Ssi+G1xFMS$ z!4tayy^&-rV#cEdv~bI+CYb?!iDYx71~y_n$6DfM;0p-4WRY7E$<}DfPoVdXER;A6 z$&XLvCW;0`JGxT+MYOaH*id>pJt&1i$?|q*gKbNmv0vx+osTfc%alOIr}#04jG_T% zyuB4=Tm{mlQZTttp zzVb$OqGVYWy-pD4x6f0mQrlgX#EkJZ^%%b5J8G?@xp|HIxc{izg!A?)wm@GaAO4`Q zCLZffg-K41-*g{TJFV>+p%vX^@REB;VhWFY$}4h;&|70IGNHj^g2T%Hp?3H~PlzzD zJ$}1zRKgLy?(rS&bnUVcPaSO2UWrI^vf3bz_8Jx~>m{VO#{F8Dw(QVqDQ2{4+~Lo( zaOS0Ek`GnnK_g|$s>n8J>{>N(j{gPixJTXlw`N6d1EuN8`1pmZ>9IqJ?i|}?Z!`ny zLN~~7aeWzG-x<2Vb)k?3c~;4`Um6-2y?99n-tUcKnlE~5aD#vFp1`*}Pp_oP5xp2s z@fN+da6&gB#{?!~CX%UgFWkWg{GMJFNPETK(bJiV#eHy_JP*T+Js~-8Z(=})Tcq-n OUP9F0dVr!)Q2iHM_Q%Em