mantissa-and-guard ( epsilon? num den scale -- epsilon?' mantissa-and-guard rem scale' )

Vocabulary

math.integers.private

Inputs

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

Outputs

epsilon?'	an object
mantissa-and-guard	an object
rem	an object
scale'	an object

Definition

USING: kernel math ;

IN: math.integers.private

: mantissa-and-guard
    ( epsilon? num den scale -- epsilon?' mantissa-and-guard rem scale' )
    2over /i log2 53 >
    [ [ (2/-with-epsilon) ] [ ] [ 1 + ] tri* ] when dup -1021 <
    [ (shift-with-epsilon) ] when [ /mod ] dip ; inline