with-build-images ( quot -- )

Vocabulary

bootstrap.image.upload

Inputs

quot

an object

Outputs

None

Definition

USING: io.directories io.files.temp io.files.unique io.pathnames
kernel sequences ;

IN: bootstrap.image.upload

: with-build-images ( quot -- )
    [ boot-image-names [ absolute-path ] map ] dip [
        [
            "." copy-files-into
            checksums-path "." copy-file-into
            checksum-lines-append-build "." directory-files
            [ dup append-build move-file ] each
        ] curry
    ] dip compose [ cleanup-unique-directory ] curry
    with-temp-directory ; inline