mason.version: fixes

diff --git a/extra/mason/version/files/files.factor b/extra/mason/version/files/files.factor
index 1335885c3d7f5ab5b5a6501d9ca95c0fe24c5cf3..ba09c6274cdc195e8ce6737813c01435578c6e31 100644 (file)
--- a/extra/mason/version/files/files.factor
+++ b/extra/mason/version/files/files.factor
@@ -10,9 +10,6 @@ IN: mason.version.files
 : remote-directory ( string -- string' )
     [ upload-directory get ] dip "/" glue ;
 
-: remote ( string version -- string )
-    remote-directory swap "/" glue ;
-
 : platform ( builder -- string )
     [ os>> ] [ cpu>> ] bi (platform) ;
 
@@ -30,10 +27,10 @@ IN: mason.version.files
     ] [ drop ] 2bi release-directory ;
 
 : remote-binary-release-name ( version builder -- string )
-    [ binary-release-name ] [ drop ] 2bi remote ;
+    binary-release-name remote-directory ;
 
 : source-release-name ( version -- string )
     [ "factor-src-" ".zip" surround ] keep release-directory ;
 
 : remote-source-release-name ( version -- string )
-    [ source-release-name ] keep remote ;
+    source-release-name remote-directory ;

diff --git a/extra/mason/version/version.factor b/extra/mason/version/version.factor
index a2093124f7f03e095102d03b4c3c197c666205b4..bb0fcbf2c32037c9832f1d5fc0c88185a34789be 100644 (file)
--- a/extra/mason/version/version.factor
+++ b/extra/mason/version/version.factor
@@ -13,7 +13,7 @@ IN: mason.version
 
 : make-release-directory ( version -- )
     "Creating release directory..." print flush
-    [ "mkdir -p " % "" release-directory % "\n" % ] "" make
+    [ "mkdir -p " % "" release-directory remote-directory % "\n" % ] "" make
     execute-on-server ;
 
 : tweet-release ( version announcement-url -- )