integer-integer-op-quot ( fix-word big-word -- quot )

Vocabulary

math.partial-dispatch

Inputs

fix-word	an object
big-word	an object

Outputs

quot

an object

Definition

USING: kernel math math.private ;

IN: math.partial-dispatch

: integer-integer-op-quot ( fix-word big-word -- quot )
    [ bignum-fixnum-op-quot ] [ integer-bignum-op-quot ] bi '[
        2dup both-fixnums?
        [ _ execute ] [ dup fixnum? _ _ if ] if
    ] ;