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
    [ [ execute ] curry ] 2dip [ [ [ dup fixnum? ] ] dip ] dip
    [ if ] 2curry compose [ [ [ 2dup both-fixnums? ] ] dip ] dip
    [ if ] 2curry compose ;