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

Vocabulary

math.parser.private

Inputs

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

Outputs

n/f

an object

Definition

USING: kernel ;

IN: math.parser.private

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