mantissa-expt-normalize* ( F E -- F' E' )

Vocabulary

math.parser.private

Inputs

F	an object
E	an object

Outputs

F'	an object
E'	an object

Definition

USING: kernel math ;

IN: math.parser.private

: mantissa-expt-normalize* ( F E -- F' E' )
    [ -1022 ] [ [ 52 2^ bitor ] [ 1023 - ] bi* ] if-zero 52 -
    >fixnum ; inline