shift-integer-integer ( x y -- z )

Vocabulary

math.partial-dispatch

Inputs

x	an object
y	an object

Outputs

z

an object

Definition

USING: kernel math math.private ;

IN: math.partial-dispatch

: shift-integer-integer ( x y -- z )
    2dup both-fixnums?
    [ \ fixnum-shift execute ] [
        dup
        fixnum?
        [ fixnum>bignum \ bignum-shift execute ]
        [
            over
            fixnum?
            [ [ fixnum>bignum ] dip \ bignum-shift execute ]
            [ \ bignum-shift execute ]
            if
        ]
        if
    ] if ; foldable flushable