X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_1_basic.4th;h=dc8c584cad30da9f1904960f90f1f75afe19cc68;hp=90fad637b677b7f2f50e8e00e2021150b393cf48;hb=4db66d36d79a44ae2c32443c06b3ddad84cae531;hpb=a8d323108d89b2438677598d1b1b592191e72a0b

diff --git a/src/lib_1_basic.4th b/src/lib_1_basic.4th
index 90fad63..dc8c584 100644
--- a/src/lib_1_basic.4th
+++ b/src/lib_1_basic.4th
@@ -59,9 +59,12 @@
     ['] LIT , ,
 ;
 
+: LATEST
+    CURRENT @ ;
+
 : RECURSE IMMEDIATE
         LATEST @        \ LATEST points to the word being compiled at the moment
-        >CFA            \ get the codeword
+        LFA>CFA         \ get the codeword
         ,               \ compile it
 ;