fixnum-integer-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

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