post-scale ( mantissa scale -- n )

Vocabulary

math.integers.private

Inputs

mantissa	an object
scale	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: math.integers.private

: post-scale ( mantissa scale -- n )
    [ 2/ ] dip over 53 2^ = [ [ 2/ ] [ 1 + ] bi* ] when
    scale-float ; inline