FIND working again.

[forth.jl.git] / src / lib_10_misc.4th

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 (file)
--- 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 - ;