shift-2/ ( -- quot )

Vocabulary

compiler.tree.propagation.transforms

Inputs

None

Outputs

quot

an object

Definition

USING: combinators generic.single kernel math math.private ;

IN: compiler.tree.propagation.transforms

: shift-2/ ( -- quot )
    [
        {
            { [ over fixnum? ] [ fixnum-shift ] }
            { [ over bignum? ] [ bignum-shift ] }
            [ drop \ shift no-method ]
        } cond
    ] ;