make-checker-word ( word n -- )

Vocabulary

cpu.arm.64.assembler.opcodes

Inputs

word	an object
n	an object

Outputs

None

Definition

USING: combinators kernel math math.bitwise words ;

IN: cpu.arm.64.assembler.opcodes

: make-checker-word ( word n -- )
    [ drop dup error-word ] [
        nip swap [ ( value -- * ) execute-effect ] curry
        [ [ [ dup ] ] dip [ on-bits > ] curry compose ] dip
        [ when ] curry compose
    ] [ 2drop ( n -- n ) ] 2tri define-declared ;