(write-image) ( image -- )

Vocabulary

bootstrap.image.private

Inputs

image

an object

Outputs

None

Definition

USING: combinators endian kernel layouts namespaces ;

IN: bootstrap.image.private

: (write-image) ( image -- )
    bootstrap-cell {
        {
            4
            [
                big-endian get
                [ 4 big-endian write-image-cells ]
                [ 4 little-endian write-image-cells ] if
            ]
        }
        {
            8
            [
                big-endian get
                [ 8 big-endian write-image-cells ]
                [ 8 little-endian write-image-cells ] if
            ]
        }
    } case ;