?make-float ( 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 kernel.private ;

IN: math.parser.private

: ?make-float ( float-parse n/f -- float/f )
    { float-parse object } declare ?default-exponent {
        { [ dup not ] [ 2drop f ] }
        { [ over radix>> 10 = ] [ make-float-dec-exponent ] }
        [ make-float-bin-exponent ]
    } cond ;