make-image-main ( -- )

Vocabulary

bootstrap.image

Inputs

None

Outputs

None

Definition

USING: command-line kernel namespaces sequences splitting ;

IN: bootstrap.image

: make-image-main ( -- )
    command-line get
    [ make-my-image ] [
        [ "boot." ?head drop ".image" ?tail drop make-image ]
        each
    ] if-empty ;