(write-image) ( image -- )

Vocabulary

bootstrap.image.private

Inputs

image

an object

Outputs

None

Definition

USING: endian io kernel layouts namespaces sequences ;

IN: bootstrap.image.private

: (write-image) ( image -- )
    bootstrap-cell output-stream get big-endian get [
        [ [ >be ] curry ] dip [ stream-write ] curry compose
        each
    ] [
        [ [ >le ] curry ] dip [ stream-write ] curry compose
        each
    ] if ;