>FFA >COMPILE >FLOAT
>FFA
* >FFA ( nfa -- ffa ) obsolete

converts a pointer to the name-field (NFA) to point
then to the corresponding flag-field (FFA) - in traditinal
Forth this is the same address. pfe _can_ do different. 
 implementation-specific configure-dependent simulation:
   : FFA  1- ;

FORTH/EXTENSIONS header ordinary primitive