X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_8_decompiler.4th;h=5daa50106d36f6f451f57888155b2d9a105c3802;hp=d9c9f3af251449fe7d654826dd1c536cc3fd4411;hb=4db66d36d79a44ae2c32443c06b3ddad84cae531;hpb=a8d323108d89b2438677598d1b1b592191e72a0b

diff --git a/src/lib_8_decompiler.4th b/src/lib_8_decompiler.4th
index d9c9f3a..5daa501 100644
--- a/src/lib_8_decompiler.4th
+++ b/src/lib_8_decompiler.4th
@@ -37,7 +37,7 @@
         DROP            ( at this point, the stack is: start-of-word end-of-word )
         SWAP            ( end-of-word start-of-word )
 
-        DUP >CFA @ CASE
+        DUP LFA>CFA @ CASE
                 DOCOL OF
                         \ Colon definition
                         [CHAR] : EMIT SPACE DUP 1+ .NAME SPACE
@@ -61,7 +61,7 @@
 
         4 SPACES
 
-        >CFA >BODY            ( get the data address, ie. points after DOCOL | end-of-word start-of-data )
+        LFA>CFA >BODY            ( get the data address, ie. points after DOCOL | end-of-word start-of-data )
 
         ( now we start decompiling until we hit the end of the word )
         BEGIN           ( end start )