Using standard field conversion words.

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

diff --git a/src/lib_9_vocab.4th b/src/lib_9_vocab.4th
index 32d12c2..2b10730 100644 (file)
--- a/src/lib_9_vocab.4th
+++ b/src/lib_9_vocab.4th
@@ -1,7 +1,7 @@
 \ Vocabulary management
 
 : FORGET
-        BL WORD FIND >LFA   ( find the word, gets the dictionary entry address )
+        BL WORD FIND >LINK  ( 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 )
 ;