(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