emit-image-header ( -- )

Vocabulary

bootstrap.image.private

Inputs

None

Outputs

None

Definition

USING: kernel.private math ;

IN: bootstrap.image.private

: emit-image-header ( -- )
    image-magic emit image-version emit data-base emit 0 emit
    0 emit 0 emit 0 emit 0 emit 0 emit 0 emit
    special-object-count [ f prepare-object emit ] times ;