@exponent-first-char ( float-parse i number-parse n char -- 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

Outputs

float-parse	an object
n/f	an object

Definition

USING: combinators ;

IN: math.parser.private

: @exponent-first-char
    ( float-parse i number-parse n char -- float-parse n/f )
    {
        { 45 [ [ @exponent-digit ] require-next-digit ?neg ] }
        { 43 [ [ @exponent-digit ] require-next-digit ?pos ] }
        [ @exponent-digit ?pos ]
    } case ; inline