add-mantissa ( float-parse i number-parse n digit -- float-parse' i number-parse n' )

Vocabulary

math.parser.private

Inputs

float-parse	an object
i	an object
number-parse	an object
n	an object
digit	an object

Outputs

float-parse'	an object
i	an object
number-parse	an object
n'	an object

Definition

USING: kernel ;

IN: math.parser.private

: add-mantissa
    ( float-parse i number-parse n digit -- float-parse' i number-parse n' )
    (add-digit) dup [ inc-point-?dec-magnitude ] curry 3dip ;
    inline