make-float-bin-exponent ( float-parse n/f -- float/f )

Vocabulary

math.parser.private

Inputs

float-parse	an object
n/f	an object

Outputs

float/f

an object

Definition

USING: accessors combinators kernel math ;

IN: math.parser.private

: make-float-bin-exponent ( float-parse n/f -- float/f )
    over [ exponent>> ] [ base2-magnitude ] bi + {
        { [ dup max-magnitude-2 > ] [ 3drop 1/0. ] }
        { [ dup min-magnitude-2 < ] [ 3drop 0.0 ] }
        [
            drop [
                [ drop 2 ] [ base2-point ] [ exponent>> ] tri -
                (pow)
            ] [ swap /f ] bi*
        ]
    } cond ; inline