COMPILE,
* COMPILE, ( xt -- )

place the execution-token on stack into the dictionary - in
traditional forth this is not even the least different than
a simple , but in call-threaded code there's a big
difference - so COMPILE, is the portable one. Unlike
COMPILE , [COMPILE] and POSTPONE this word does
not need the xt to have actually a name, see :NONAME

FORTH/ANS core (dpANS.6.2.0945) ordinary primitive