@neg-first-digit ( 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

: @neg-first-digit ( i number-parse n char -- n/f )
    {
        { 46 [ ->required-mantissa ] }
        {
            48
            [
                [ @neg-digit ] [ @neg-digit-or-punc ]
                with-radix-char
            ]
        }
        [ @neg-digit ]
    } case ; inline