scale-denonimator ( den -- scaled-den scale' )

Vocabulary

math.integers.private

Inputs

den

an object

Outputs

scaled-den	an object
scale'	an object

Definition

USING: kernel math ;

IN: math.integers.private

: scale-denonimator ( den -- scaled-den scale' )
    dup twos neg [ shift ] keep ; inline