defer:header — definining primitive
EXTENSIONS
DEFER
( 'word' -- )(
)
;
p4:"defer";
create a new word with ((DEFER))-semantics
simulate: : DEFER CREATE 0, DOES> ( the ((DEFER)) runtime ) @ ?DUP IF EXECUTE THEN ; : DEFER DEFER-RT HEADER 0 , ;
declare as <c>"DEFER deferword"</c> <br> and set as <c>"['] executionword IS deferword"</c> (in pfe, you can also use TO deferword to set the execution)