emit-bignum ( n -- )

Vocabulary

bootstrap.image.private

Inputs

n

an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: bootstrap.image.private

: emit-bignum ( n -- )
    dup dup 0 < [ neg ] when bignum>sequence
    [ nip length 1 + emit-fixnum ] [ drop 0 < 1 0 ? emit ]
    [ nip emit-seq ] 2tri ;