write-image ( image -- )

Vocabulary

bootstrap.image.private

Inputs

image

an object

Outputs

None

Definition

USING: bootstrap.image io io.encodings.binary io.files
io.pathnames kernel namespaces ;

IN: bootstrap.image.private

: write-image ( image -- )
    "Writing image to " write
    architecture get boot-image-name resource-path
    [ write "..." print flush ]
    [ binary [ (write-image) ] with-file-writer ] bi ;