X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_10_misc.4th;fp=src%2Flib_9_misc.4th;h=a864cbbedae0d1b2d8a4df81b05dc525447fbbb0;hp=57b7e7550429245f350403cbc79799905487e378;hb=fba53adbaa70e296388c421aa182ff7bad090b17;hpb=4db66d36d79a44ae2c32443c06b3ddad84cae531 diff --git a/src/lib_9_misc.4th b/src/lib_10_misc.4th similarity index 67% rename from src/lib_9_misc.4th rename to src/lib_10_misc.4th index 57b7e75..a864cbb 100644 --- a/src/lib_9_misc.4th +++ b/src/lib_10_misc.4th @@ -32,16 +32,5 @@ then ; -: FORGET - BL WORD FIND >LFA ( find the word, gets the dictionary entry address ) - DUP @ LATEST ! ( set LATEST to point to the previous word ) - H ! ( and store H with the dictionary address ) -; - -: HIDE - BL WORD FIND DROP >NAME - DUP @ F_HIDDEN OR SWAP ! -; - : UNUSED ( -- cells ) MEMSIZE HERE - ;