words/defer-fetch.asm

Jump to Vocabulary

; ( xt1 -- xt2 ) System
; R( -- )
; returns the XT assoziates with the given XT
VE_DEFERFETCH:
    .db $06, "defer@",0
    .dw VE_HEAD
    .set VE_HEAD = VE_DEFERFETCH
XT_DEFERFETCH:
    .dw DO_COLON
PFA_DEFERFETCH:
    .dw XT_DUP
    .dw XT_1PLUS ; >body
    .dw XT_1PLUS
    .dw XT_IFETCH
    .dw XT_EXECUTE
    .dw XT_EXIT

Jump to Vocabulary