(next-digit) ( i number-parse n digit-quot end-quot -- n/f )

Vocabulary

math.parser.private

Inputs

i	an object
number-parse	an object
n	an object
digit-quot	an object
end-quot	an object

Outputs

n/f

an object

Definition

USING: accessors kernel math math.private sequences.private ;

IN: math.parser.private

: (next-digit)
    ( i number-parse n digit-quot end-quot -- n/f )
    [ 2over length>> < ] 2dip [
        [
            2over str>> nth-unsafe >fixnum
            [ 1 fixnum+fast ] 3dip
        ] prepose
    ] dip if ; inline