one-digit ( num accum -- num' accum )


Vocabulary
math.parser.private

Inputs
numan object
accuman object


Outputs
num'an object
accuman object


Definition
USING: kernel math sequences ;

IN: math.parser.private

: one-digit ( num accum -- num' accum )
[ 10 /mod 48 + ] dip [ push ] keep ; inline