X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_1_basic.4th;h=bc21965e7d521ef2cc186050ed56437c55739f19;hb=97b6b09881f94f55d0419d8557d2b00f816a18cb;hp=b6f75e48605882b80fc8d596977f480da3c87104;hpb=56f581c25775f4244cd60d5943a5beb46a9ccafb;p=forth.jl.git

diff --git a/src/lib_1_basic.4th b/src/lib_1_basic.4th
index b6f75e4..bc21965 100644
--- a/src/lib_1_basic.4th
+++ b/src/lib_1_basic.4th
@@ -64,13 +64,14 @@
     ['] LIT , ,
 ;
 
-\ Address containing LFA of most recent definition
-: LATEST
-    CURRENT @ 1+ ;
+\ Convert vocabulary CFA to link addr it contains
+: VOCAB>LATEST
+        1+ @
+;
 
 \ Compile in recursive call to current word
 : RECURSE IMMEDIATE
-        LATEST @        \ LATEST points to the word being compiled at the moment
+        CURRENT @ VOCAB>LATEST
         LINK>           \ get the codeword
         ,               \ compile it
 ;