From 4146110e0d3d7cabc4294a68ac249a9bb370bab7 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Thu, 11 Jun 2020 19:04:03 -0400 Subject: [PATCH] Move EMPTY to core words It's a quite useful word and it doesn't make sense to reload it from disk after each usage. --- blk/152 | 1 - blk/156 | 16 ---------------- blk/372 | 4 +--- emul/forth.bin | Bin 6153 -> 6187 bytes 4 files changed, 1 insertion(+), 20 deletions(-) delete mode 100644 blk/156 diff --git a/blk/152 b/blk/152 index 7af33ba..0857b16 100644 --- a/blk/152 +++ b/blk/152 @@ -1,6 +1,5 @@ '? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? ) '? FILL NOT [IF] 3 LOAD+ [THEN] DROP -'? EMPTY NOT [IF] 4 LOAD+ [THEN] DROP '? WIPE NOT [IF] 5 LOAD+ [THEN] DROP diff --git a/blk/156 b/blk/156 deleted file mode 100644 index 5b68b28..0000000 --- a/blk/156 +++ /dev/null @@ -1,16 +0,0 @@ -: EMPTY - LIT< _sys FIND NOT IF ABORT THEN - DUP HERE ! CURRENT ! ; - - - - - - - - - - - - - diff --git a/blk/372 b/blk/372 index c6c5e4f..8b8ae1d 100644 --- a/blk/372 +++ b/blk/372 @@ -11,6 +11,4 @@ WORD( HERE ! ( w ) PREV CURRENT ! ; - - - +: EMPTY LIT< _sys FIND IF DUP HERE ! CURRENT ! THEN ; diff --git a/emul/forth.bin b/emul/forth.bin index 8b9a35ca1e34971617ba8d51705cfc21414626e4..cc5e85104f12d8a0329f130cfcf1bc1e0a5d8a7f 100644 GIT binary patch delta 1055 zcmYjQO-NKx6h8OeH;#@o_x;VA$x3}rj?OrZ6_rr_jn9;%nG~N=+K)(?N!g!n3L?uA zj26+2m_^Y@ODXyxq6XU3wuQJ9B3p$7g+)XzrgKM$7Vo}uIOlxlyXSm&dh6`gqIX5) zT@?ZN^{lAH7imj%_4KU+7Yl(rFm`e5iE9|VutG*%lk_frHtgwabDGL|mv0*x=hu99 zNtg#&_=?FU>3f;tX@i~IR}lu8QFfdD@ZF{hWL6e&8`_h-&Rzj;VrUp-IM4Fw2@TV4 zu@xdp`U-}j04gLK`wGC%d5BfmiYhFAwT2cM8XXyrDp0^?d6qRGlizF$o)P8P&;kNS z&RrNeGaj|T&Fb8<@@uGbrTl13bKIHdJ zS;S1ItJMP(3oS_V?@B4jai(sTvx-;cO=?H%lDa}NuBiKy9G7PB%C(_#xW?|Qm5@~o zj}0w$XLnCXgDLiwKUe#rY303KPZzPuf?aU_-`&%S17CACG}i*bp;#KXi>o;ENF3AF2Jm_IN|3I(}k zB*)(x&Bb0d1k%}4Sq1$<|4xZA-s}%;%CIn^)ItiiSP8rRg1WF@$rfrxSj+snKSnbA zslV)qP}2r_)Q=oGTlRFTsGT`niy(k=($=d-{S)vLhnx?`N>NFxC2{O0O5>7b;>r>= z>+&ma!Vba}>S*LKb0g{Jd(DmI`^+z-)cp|)PMQ<2l)H)gii{49oQYN=}ul zca8UB+Gq;?GqfN7|8X}C7;6vjwKoKw*0ZNi51tzv>U6{$9&sZOAz9uKs3r-1JkU$- z@Hc^2St1aZ#N%p9I&B7AXO-Z9;juu17sU|dG?)k{0z!Jd`+GW)0l0w~!+t*#Z1@X*WApU@ delta 1057 zcmYjQT}TvB6h3$Etmf*>ouA!V&D_>a%XM2b!l<;;@rSIn6-T3pGRasf!^&7F$}B6W zhuFBi2tftaixfx?< zBhOb7fHz}#4N6W^qS@I}$WJP3Ne92D+$5B5RLjqQSBB{ec?NeI?D&q-a*)*-B~2%B zy(6Qt@Y~Q5?{c;kf=B(1*GZ5ep}O#T9pOjRIU*=~a*~h(rIHQ89;VOS5ZSP$E0O$U zFUOTKG) zU8}JpYblFXyhTAduUH0=PJ5#lC=x@ib7%Z7vCWgF1yT|Nz9SB1@_|=ttK|_k%lHAU zHM(1yBX>NJ+-W%`-NnqS!pq^JdPXaQ5oUUAXs{CeTQWo?Ze2o$D zjA4pne4h~{FZo#`Oq%#@V{LAUA=;JVZ;hCeG(zBkUd-X=LWb*Rh4j(jwdOhkyx&|E znPu}DwxHGN4B%6PSX<3iH$^Aqq$$+a!xXKhlxNJMB|_Xc6vwB{t@*Po3{wBm5r%f9 zuSS|tc#ki=)VG zr5o`3UnXXa83ws~;Pk+FK^VM^{e68s#|I8298r}EyvC{^BYeNLiUj!;tBV}x@2zMs zXvHM)12)H