mason: recent with-unique-directory change was broken
parent
1014b62ee7
commit
d2bef80a19
|
@ -10,6 +10,9 @@ IN: mason.version.files
|
||||||
: remote-directory ( string -- string' )
|
: remote-directory ( string -- string' )
|
||||||
[ upload-directory get ] dip "/" glue ;
|
[ upload-directory get ] dip "/" glue ;
|
||||||
|
|
||||||
|
SLOT: os
|
||||||
|
SLOT: cpu
|
||||||
|
|
||||||
: platform ( builder -- string )
|
: platform ( builder -- string )
|
||||||
[ os>> ] [ cpu>> ] bi (platform) ;
|
[ os>> ] [ cpu>> ] bi (platform) ;
|
||||||
|
|
||||||
|
|
|
@ -38,7 +38,7 @@ IN: mason.version.source
|
||||||
[
|
[
|
||||||
clone-factor prepare-source (make-source-release)
|
clone-factor prepare-source (make-source-release)
|
||||||
"Package created: " write absolute-path dup print
|
"Package created: " write absolute-path dup print
|
||||||
] with-unique-directory ;
|
] with-unique-directory drop ;
|
||||||
|
|
||||||
: upload-source-release ( package version -- )
|
: upload-source-release ( package version -- )
|
||||||
"Uploading source release..." print flush
|
"Uploading source release..." print flush
|
||||||
|
|
Loading…
Reference in New Issue