* DEFER ( 'word' -- ) 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 "DEFER deferword" and set as "['] executionword IS deferword" (in pfe, you can also use TO deferword to set the execution)
DEFER
( 'word' -- )
simulate: : DEFER CREATE 0, DOES> ( the ((DEFER)) runtime ) @ ?DUP IF EXECUTE THEN ; : DEFER DEFER-RT HEADER 0 , ;
"DEFER deferword"
"['] executionword IS deferword"
TO deferword
FORTH/EXTENSIONS header defining primitive