2b107306b81536809256f0bc9ec5168b1de0eaab
[forth.jl.git] / src / lib_9_vocab.4th
1 \ Vocabulary management
2
3 : FORGET
4         BL WORD FIND >LINK  ( find the word, gets the dictionary entry address )
5         DUP @ LATEST !      ( set LATEST to point to the previous word )
6         H !                 ( and store H with the dictionary address )
7 ;
8
9 : HIDE
10         BL WORD FIND DROP >NAME
11         DUP @ F_HIDDEN OR SWAP !
12 ;