to-compile:useful — ordinary primitive
EXTENSIONS
>COMPILE
( xt -- )(
)
;
p4:"to-compile";
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