(mantissa-expt) ( bits -- mantissa expt )

Vocabulary

math.parser.private

Inputs

bits

an object

Outputs

mantissa	an object
expt	an object

Definition

USING: kernel math ;

IN: math.parser.private

: (mantissa-expt) ( bits -- mantissa expt )
    [ 52 2^ 1 - bitand ]
    [ -0.0 double>bits bitnot bitand -52 shift ] bi ; inline