; ( xt1 -- xt2 ) System
; R( -- )
; does the real defer@ for user based defers
;VE_UDEFERFETCH:
; .db $07, "Udefer@"
; .dw VE_HEAD
; .set VE_HEAD = VE_UDEFERFETCH
XT_UDEFERFETCH:
.dw DO_COLON
PFA_UDEFERFETCH:
.dw XT_1PLUS ; >body
.dw XT_IFETCH
.dw XT_UP_FETCH
.dw XT_PLUS
.dw XT_FETCH
.dw XT_EXIT