\ 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
0= IF
." Word '" COUNT TYPE ." ' not found in dictionary."
- EXIT
+ CR ABORT
THEN
DUP DUP BODYLEN + SWAP >LINK