make-boot-image ( -- )

Vocabulary

tools.deploy.backend

Word description

If stage1 image doesn't exist, create it.

Definition

USING: bootstrap.image io.files io.pathnames kernel ;

IN: tools.deploy.backend

: make-boot-image ( -- )
    my-boot-image-name resource-path file-exists?
    [ make-my-image ] unless ;