X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_9_vocab.4th;h=68b7f6e887f4aad12940636a2b2c2a42af2ac300;hp=2b107306b81536809256f0bc9ec5168b1de0eaab;hb=ebff3ca5a9b2dd5a6608b696e7862aa7264f6682;hpb=19d08aee45587ac2b84f6c413fc53542d50c52cc

diff --git a/src/lib_9_vocab.4th b/src/lib_9_vocab.4th
index 2b10730..68b7f6e 100644
--- 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
+;