@neg-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: kernel kernel.private math ;

IN: math.parser.private

: @neg-digit ( i number-parse n char -- n/f )
    { fixnum number-parse integer fixnum } declare
    digit-in-radix
    [ add-digit [ @neg-digit-or-punc ] next-digit ] [ @abort ]
    if ;