is:header — compiling primitive
( xt-value [word] -- )(
set a DEFER word (in pfe: set the DOES-field - which is the BODY-field in ans-mode and therefore the same as TO / in fig-mode the DOES-field is one cell higher up than for a CREATE: VARIABLE Use IS freely on each DOES-words in both modes).
: IS ' STATE @ IF LITERAL, POSTPONE >DOES-BODY POSTPONE ! ELSE >DOES-BODY ! THEN ; IMMEDIATE