X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib.4th;h=840ed4b192f821853ffa20765319ca5c8ef0ea4f;hp=2312aeb1727ca682657c07e0d484dfb5eb7c7386;hb=5da35bb425354054043fef285a44d488f713e572;hpb=b593ff258f6b62e7bd7c00b566d8f4f812b0f95a

diff --git a/src/lib.4th b/src/lib.4th
index 2312aeb..840ed4b 100644
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -517,7 +517,7 @@ DOES>   @
 : TO IMMEDIATE  ( n -- )
         BL WORD         ( get the name of the value )
         FIND            ( look it up in the dictionary )
-        >PFA            ( get a pointer to the first data field (the 'LIT') )
+        >CFA >BODY            ( get a pointer to the first data field (the 'LIT') )
         STATE @ IF      ( compiling? )
                 ['] LIT ,         ( compile LIT )
                 ,               ( compile the address of the value )
@@ -531,7 +531,7 @@ DOES>   @
 : +TO IMMEDIATE
         BL WORD         ( get the name of the value )
         FIND            ( look it up in the dictionary )
-        >PFA            ( get a pointer to the first data field (the 'LIT') )
+        >CFA >BODY            ( get a pointer to the first data field (the 'LIT') )
         STATE @ IF      ( compiling? )
                 ['] LIT ,         ( compile LIT )
                 ,               ( compile the address of the value )
@@ -688,7 +688,7 @@ DOES>   @
 
         4 SPACES
 
-        >PFA            ( get the data address, ie. points after DOCOL | end-of-word start-of-data )
+        >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 )