fixnum>dec ( num accum -- num' accum )


Vocabulary
math.parser.private

Inputs
numan object
accuman object


Outputs
num'an object
accuman object


Definition
USING: kernel kernel.private math sbufs ;

IN: math.parser.private

: fixnum>dec ( num accum -- num' accum )
{ fixnum sbuf } declare [ over 10 >= ] [ two-digit ] while
[ over zero? ] [ one-digit ] until ; inline