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