bootstrap-new-factor ( path branch/checksum -- path branch/checksum )

Vocabulary

zealot.factor

Inputs

path	an object
branch/checksum	an object

Outputs

path	an object
branch/checksum	an object

Definition

USING: combinators io kernel ;

IN: zealot.factor

: bootstrap-new-factor
    ( path branch/checksum -- path branch/checksum )
    {
        [
            "ZEALOT DOWNLOADING BOOT IMAGE" print
            flush download-my-boot-image
        ]
        [
            "ZEALOT DOWNLOADING CHECKSUMS" print
            flush download-boot-checksums
        ]
        [ "ZEALOT COMPILING" print flush drop compile-factor ]
        [
            "ZEALOT BOOTSTRAPPING" print flush drop
            bootstrap-factor
        ]
        [ ]
    } 2cleave ;