X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_1_basic.4th;h=b6f75e48605882b80fc8d596977f480da3c87104;hb=e57561fe2d6e29350b0bfb580d7129910ece9689;hp=00b200d940eab5b0c38a3aa443bbaac6efe92c79;hpb=3c35d5caec5303e84c5de9dde74759f38280a3d3;p=forth.jl.git diff --git a/src/lib_1_basic.4th b/src/lib_1_basic.4th index 00b200d..b6f75e4 100644 --- a/src/lib_1_basic.4th +++ b/src/lib_1_basic.4th @@ -64,9 +64,9 @@ ['] LIT , , ; -\ LFA of most recent definition +\ Address containing LFA of most recent definition : LATEST - CURRENT @ ; + CURRENT @ 1+ ; \ Compile in recursive call to current word : RECURSE IMMEDIATE