@pos-digit-or-punc ( i number-parse n char -- n/f )

Vocabulary

math.parser.private

Inputs

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

Outputs

n/f

an object

Definition

USING: combinators ;

IN: math.parser.private

: @pos-digit-or-punc ( i number-parse n char -- n/f )
    [ [ @pos-digit ] require-next-digit ] [
        {
            { 43 [ ->numerator ] }
            { 47 [ ->denominator ] }
            { 46 [ ->mantissa ] }
            [ [ @pos-digit ] or-exponent ]
        } case
    ] if-skip ; inline