>COMPILE >BODY >EXECUTE
>COMPILE ( xt -- )  
<PFE-SMART>
does the work of POSTPONE on the execution token that you got from somewhere else - so it checks if the name (that correspond to the execution-token argument) is actually immediate, so it has to be executed to compile something, e.g. IF or THEN - see also POSTPONE , COMPILE , [COMPILE] , INTERPRET

reference: p4_to_compile in ../src/yours.c:0135, export CO >COMPILE