6.2.1177 DEFER@ defer-fetch CORE EXT

( xt₁ -- xt₂ )

xt₂ is the execution token xt₁ is set to execute. An ambiguous condition exists if xt₁ is not the execution token of a word defined by DEFER, or if xt₁ has not been set to execute an xt.

See:

6.2.0698 ACTION-OF, 6.2.1173 DEFER, 6.2.1175 DEFER!, 6.2.1725 IS.

Implementation:

: DEFER@ ( xt1 -- xt2 )
>BODY @ ;

Testing:

T{ DEFER defer4 -> }T

T{ ' * ' defer4 DEFER! -> }T
T{ 2 3 defer4 -> 6 }T
T{ ' defer4 DEFER@ -> ' * }T

T{ ' + IS defer4 -> }T
T{ 1 2 defer4 -> 3 }T
T{ ' defer4 DEFER@ -> ' + }T

6.2.1177 DEFER@ defer-fetch CORE EXT

See:

Implementation:

Testing:

ContributeContributions