?exponent ( accum e -- accum )


Vocabulary
math.parser.private

Inputs
accuman object
ean object


Outputs
accuman object


Definition
USING: kernel math math.parser sequences ;

IN: math.parser.private

: ?exponent ( accum e -- accum )
[ 101 suffix! ] dip
[ 0 >= [ 43 suffix! ] when ] [ >dec append! ] bi ; inline