words/abort.asm

Jump to Vocabulary

; ( n*x -- ) Exceptions
; R( n*y -- )
; send an exception -1
VE_ABORT:
    .db $05, "abort"
    .dw VE_HEAD
    .set VE_HEAD = VE_ABORT
XT_ABORT:
    .dw DO_COLON
PFA_ABORT:
    .dw XT_DOLITERAL
    .dw -1
    .dw XT_THROW

Jump to Vocabulary