mason.release.archive: use code-array literal

db4
Doug Coleman 2015-07-15 14:31:38 -07:00
parent a488d47dfb
commit 19bf287d67
1 changed files with 6 additions and 7 deletions

View File

@ -1,8 +1,8 @@
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators io.directories USING: accessors combinators io.directories
io.directories.hierarchy io.files io.pathnames kernel locals io.directories.hierarchy io.files io.pathnames kernel literals
make mason.common mason.config mason.platform namespaces locals make mason.common mason.config mason.platform namespaces
sequences system words ; sequences system words ;
IN: mason.release.archive IN: mason.release.archive
@ -38,13 +38,12 @@ IN: mason.release.archive
: sign-factor.app? ( -- ? ) cert-path exists? ; : sign-factor.app? ( -- ? ) cert-path exists? ;
:: sign-factor.app ( -- ) :: sign-factor.app ( -- )
{ ${
"codesign" "--force" "--sign" "codesign" "--force" "--sign"
"Developer ID Application" "Developer ID Application"
} cert-path
cert-path suffix "Factor.app/"
"Factor.app/" suffix } short-running-process ;
short-running-process ;
! Make the .dmg ! Make the .dmg
: make-macosx-archive ( archive-name -- ) : make-macosx-archive ( archive-name -- )