6.2.1175
DEFER!
defer-store
CORE EXT
 
( xt2 xt1 -- )

Set the word xt1 to execute xt2. An ambiguous condition exists if xt1 is not for a word defined by DEFER.

See:
6.2.0698 ACTION-OF, 6.2.1173 DEFER, 6.2.1177 DEFER@, 6.2.1725 IS.

Implementation:
: DEFER! ( xt2 xt1 -- )
   >BODY ! ;
Testing:
T{ DEFER defer3 -> }T

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

T{ ' + ' defer3 DEFER! -> }T
T{ 1 2 defer3 -> 3 }T