Implemented CURRENT, FORTH, ORDER.

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

diff --git a/src/lib_9_vocab.4th b/src/lib_9_vocab.4th
index 2b10730..68b7f6e 100644 (file)
--- a/src/lib_9_vocab.4th
+++ b/src/lib_9_vocab.4th
@@ -10,3 +10,19 @@
         BL WORD FIND DROP >NAME
         DUP @ F_HIDDEN OR SWAP !
 ;
+
+: VOCAB>LATEST ( vcfa -- vlatest )
+        1+ @ @ ;
+
+: ORDER
+
+    \ Search order
+    context #context @ 1- + context
+    do
+        i @ >name .name
+    loop
+
+    \ Current (definitions)
+    9 emit
+    current @ >name .name
+;