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


Vocabulary
math.partial-dispatch

Inputs
fix-wordan object
big-wordan object


Outputs
quotan object


Definition
USING: kernel math ;

IN: math.partial-dispatch

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