define-integer-op-word ( fix-word big-word triple -- )

Vocabulary

math.partial-dispatch

Inputs

fix-word	an object
big-word	an object
triple	an object

Outputs

None

Definition

USING: kernel words ;

IN: math.partial-dispatch

: define-integer-op-word ( fix-word big-word triple -- )
    [
        [ 2nip integer-op-word dup make-foldable ]
        [ integer-op-quot ] 3bi ( x y -- z ) define-declared
    ] [
        2nip [ integer-op-word ] keep
        "derived-from" set-word-prop
    ] 3bi ;