make-macos-archive ( archive-name -- )

Vocabulary

mason.release.archive

Inputs

archive-name

an object

Outputs

None

Definition

USING: continuations io.directories ;

IN: mason.release.archive

: make-macos-archive ( archive-name -- )
    [ prepare-dmg-root "Factor" "dmg-root" make-disk-image ]
    [ "dmg-root" delete-tree ] finally ;