X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_8_decompiler.4th;h=412d7f1e4b0f8d0929fe8290a63e9f3f7012011e;hb=698e6c176256cd3b3a4fa8a647feec57db3a8c14;hp=90ba1096a256696d49960799a69de11643a34760;hpb=90a9b8ad41a542c3ca7d150d4d1168cb8ec97b81;p=forth.jl.git

diff --git a/src/lib_8_decompiler.4th b/src/lib_8_decompiler.4th
index 90ba109..412d7f1 100644
--- 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
@@ -64,7 +61,7 @@
 
         0= IF
                 ." Word '" COUNT TYPE ." ' not found in dictionary."
-                EXIT
+                CR ABORT
         THEN
 
         DUP DUP BODYLEN + SWAP >LINK