bignum>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 layouts math sbufs ;

IN: math.parser.private

: bignum>dec ( num accum -- num' accum )
[ over most-positive-fixnum > ]
[ { bignum sbuf } declare two-digit ] while [ >fixnum ] dip
; inline