REPL character substitution now working again.

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

diff --git a/src/lib_1_basic.4th b/src/lib_1_basic.4th
index 21c7b93..a5bb701 100644 (file)
--- a/src/lib_1_basic.4th
+++ b/src/lib_1_basic.4th
@@ -64,14 +64,14 @@
     ['] LIT , ,
 ;
 
-\ 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
 ;
-