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

core ordinary primitive