pre-scale ( num den -- epsilon? num' den' scale )

Vocabulary

math.integers.private

Inputs

num	an object
den	an object

Outputs

epsilon?	an object
num'	an object
den'	an object
scale	an object

Definition

USING: kernel math ;

IN: math.integers.private

: pre-scale ( num den -- epsilon? num' den' scale )
    scale-denonimator [ [ scale-numerator ] 1check ] dip swap -
    ; inline