>BODY

( xt -- a-addr )

a-addr is the data-field address corresponding to xt. An ambiguous condition exists if xt is not for a word defined via CREATE.

See:

Rationale:

a-addr is the address that HERE would have returned had it been executed immediately after the execution of the CREATE that defined xt.

Testing:

T{  CREATE CR0 ->      }T
T{ ' CR0 >BODY -> HERE }T

ContributeContributions