Implemented CURRENT, FORTH, ORDER.

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

diff --git a/src/lib_1_basic.4th b/src/lib_1_basic.4th
index 00b200d..21c7b93 100644 (file)
--- a/src/lib_1_basic.4th
+++ b/src/lib_1_basic.4th
@@ -66,7 +66,7 @@
 
 \ LFA of most recent definition
 : LATEST
-    CURRENT @ ;
+    CURRENT @ 1+ ;
 
 \ Compile in recursive call to current word
 : RECURSE IMMEDIATE