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

Vocabulary

math.partial-dispatch

Inputs

big-word

an object

Outputs

quot

an object

Definition

USING: kernel math ;

IN: math.partial-dispatch

: integer-bignum-op-quot ( big-word -- quot )
    [ fixnum-bignum-op-quot ] keep [ execute ] curry
    [ [ [ over fixnum? ] ] dip ] dip [ if ] 2curry compose ;