X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_9_misc.4th;h=77776c853110d30f30cbe9965085445adee729c1;hb=ae5336895f9d6770eed164d140c628556f3f8457;hp=57b7e7550429245f350403cbc79799905487e378;hpb=9da6dc7c0252fdc18aca602928feab518737cc8f;p=forth.jl.git

diff --git a/src/lib_9_misc.4th b/src/lib_9_misc.4th
index 57b7e75..77776c8 100644
--- a/src/lib_9_misc.4th
+++ b/src/lib_9_misc.4th
@@ -1,4 +1,4 @@
-\ Miscellaneous core words
+\ Miscellaneous undefined core words
 
 : ROLL ( x_u x_u-1... x_0 u -- x_u-1 ... x_0 x_u )
         1+ DUP PICK SWAP    ( x_u x_u-1 ... x_0 x_u u+1 )
@@ -24,24 +24,9 @@
         then
 ;
 
-: MIN           ( n m -- max )
-        2dup - 0> if
-                swap drop
-        else
-                drop
-        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 !
-;
+( Stractch pad. )
+: PAD           ( -- addr )
+        HERE 340 + ;
 
 : UNUSED  ( -- cells )
         MEMSIZE HERE - ;