* DOES> ( -- pfa ) does twist the last >CREATE word to carry the (DOES>) runtime. That way, using the word will execute the code-piece following >DOES> where the pfa of the word is already on stack. (note: FIG option will leave pfa+cell since does-rt is stored in pfa)
DOES>
( -- pfa )
>CREATE
(DOES>)
>DOES>
core compiling primitive