?default-exponent ( float-parse n/f -- float-parse' n/f' )

Vocabulary

math.parser.private

Inputs

float-parse	an object
n/f	an object

Outputs

float-parse'	an object
n/f'	an object

Definition

USING: accessors kernel ;

IN: math.parser.private

: ?default-exponent ( float-parse n/f -- float-parse' n/f' )
    over exponent>>
    [ over radix>> 10 = [ 0 store-exponent ] [ drop f ] if ]
    unless ; inline