COMPILE, COMPILE CONSTANT
COMPILE, ( xt -- )  
ansi .6.2.0945 <CORE>
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

reference: p4_compile_comma in ../src/core.c:2175, export CO COMPILE,