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


Vocabulary
math.partial-dispatch

Inputs
big-wordan object


Outputs
quotan object


Definition
USING: kernel math.private ;

IN: math.partial-dispatch

: fixnum-bignum-op-quot ( big-word -- quot )
[ [ [ fixnum>bignum ] dip ] ] dip [ execute ] curry compose
;