words/defer-store.asm

Jump to Vocabulary

; ( xt1 xt2 -- ) System
; R( -- )
; stores xt1 as the xt to be executed when xt2 is called
VE_DEFERSTORE:
    .db $06, "defer!",0
    .dw VE_HEAD
    .set VE_HEAD = VE_DEFERSTORE
XT_DEFERSTORE:
    .dw DO_COLON
PFA_DEFERSTORE:
    .dw XT_DUP
    .dw XT_DOLITERAL
    .dw 3
    .dw XT_PLUS   ; >body 2 +
    .dw XT_IFETCH
    .dw XT_EXECUTE
    .dw XT_EXIT

Jump to Vocabulary