mul-shift ( x mul shift -- y )

Vocabulary

ryu.private

Inputs

x	an object
mul	an object
shift	an object

Outputs

y

an object

Definition

USING: kernel math sequences ;

IN: ryu.private

: mul-shift ( x mul shift -- y )
    [ first2 rot [ * ] keep swapd * -64 shift + ] [ 64 - neg ]
    bi* shift ;