@mantissa-digit ( 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: kernel kernel.private math ;

IN: math.parser.private

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