download-my-boot-image ( path branch/checksum -- )

Vocabulary

zealot.factor

Inputs

path	an object
branch/checksum	an object

Outputs

None

Definition

USING: bootstrap.image formatting kernel ;

IN: zealot.factor

: download-my-boot-image ( path branch/checksum -- )
    dup git-checksum?
    [ [ my-arch-name ] dip arch-git-boot-image-path ] [
        my-boot-image-name
        "https://downloads.factorcode.org/images/%s/%s" sprintf
    ] if download-boot-image ;