or-mantissa->exponent ( float-parse i number-parse n char quot -- float-parse n/f )

Vocabulary

math.parser.private

Inputs

float-parse	an object
i	an object
number-parse	an object
n	an object
char	an object
quot	an object

Outputs

float-parse	an object
n/f	an object

Definition

USING: kernel ;

IN: math.parser.private

: or-mantissa->exponent
    ( float-parse i number-parse n char quot -- float-parse n/f )
    [ exponent-char? [ drop ->exponent ] ] dip if ; inline