words/is.asm

Jump to Vocabulary

; ( xt1 c<char> -- ) System
; R( --)
; stores xt into defer or compiles code to do so at runtime
VE_IS:
    .db $82, "is", 0
    .dw VE_HEAD
    .set VE_HEAD = VE_IS
XT_IS:
    .dw DO_COLON
PFA_IS:
    .dw XT_STATE
    .dw XT_FETCH
    .dw XT_DOCONDBRANCH
    .dw PFA_IS1
    .dw XT_BRACKETTICK
    .dw XT_COMPILE
    .dw XT_DEFERSTORE
    .dw XT_EXIT
PFA_IS1:
    .dw XT_TICK
    .dw XT_DEFERSTORE
    .dw XT_EXIT

Jump to Vocabulary