; ( -- ) Compiler ; R( -- ) ; compile XT of the word beeing currently defined into dictionary (! not conforming to ANS!) VE_RECURSE: .db $87, "recurse" .dw VE_HEAD .set VE_HEAD = VE_RECURSE XT_RECURSE: .dw DO_COLON PFA_RECURSE: .dw XT_HEAD .dw XT_EFETCH .dw XT_DUP .dw XT_IFETCH .dw XT_DOLITERAL .dw $001f .dw XT_AND .dw XT_2SLASH .dw XT_1PLUS .dw XT_PLUS .dw XT_1PLUS .dw XT_COMMA .dw XT_EXIT