Functionally complete implementation.

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

diff --git a/src/lib_8_decompiler.4th b/src/lib_8_decompiler.4th
index 90ba109..3db6766 100644 (file)
--- a/src/lib_8_decompiler.4th
+++ b/src/lib_8_decompiler.4th
@@ -1,12 +1,9 @@
 \ Decompilation
 
-: VCFA>LATEST
-        1+ @
-;
 
 : CLOSESTLINK ( addr vcfa -- lfa )
 
-        vcfa>latest dup         ( addr link link )
+        vocab>latest dup         ( addr link link )
         rot dup -rot            ( link addr link addr )
         < if
                 2drop