X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_8_decompiler.4th;h=3db67668defd9db758426b3f894e3fc5032d616d;hp=90ba1096a256696d49960799a69de11643a34760;hb=97b6b09881f94f55d0419d8557d2b00f816a18cb;hpb=d2a26bd72dda48f9afd02185db4659a9efd46efd diff --git a/src/lib_8_decompiler.4th b/src/lib_8_decompiler.4th index 90ba109..3db6766 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