error-word ( word -- new-class )

Vocabulary

cpu.arm.64.assembler.opcodes

Inputs

word

an object

Outputs

new-class

an object

Definition

USING: accessors classes.error classes.parser kernel parser
sequences ;

IN: cpu.arm.64.assembler.opcodes

: error-word ( word -- new-class )
    name>> "-range" append create-class-in dup save-location
    tuple { "value" } [ define-error-class ] keepdd ;