mason: recent with-unique-directory change was broken

diff --git a/extra/mason/version/files/files.factor b/extra/mason/version/files/files.factor
index ba09c6274cdc195e8ce6737813c01435578c6e31..6e762e5af2765e36fee5318e1097bfaa26abd87c 100644 (file)
--- a/extra/mason/version/files/files.factor
+++ b/extra/mason/version/files/files.factor
@@ -10,6 +10,9 @@ IN: mason.version.files
 : remote-directory ( string -- string' )
     [ upload-directory get ] dip "/" glue ;
 
+SLOT: os
+SLOT: cpu
+
 : platform ( builder -- string )
     [ os>> ] [ cpu>> ] bi (platform) ;
 

diff --git a/extra/mason/version/source/source.factor b/extra/mason/version/source/source.factor
index 1365a081e78032cee08c2b54ee2ce99ac2477ac8..13bd0cffd97575af8789c89833d5cfba599c5bce 100644 (file)
--- a/extra/mason/version/source/source.factor
+++ b/extra/mason/version/source/source.factor
@@ -38,7 +38,7 @@ IN: mason.version.source
     [
         clone-factor prepare-source (make-source-release)
         "Package created: " write absolute-path dup print
-    ] with-unique-directory ;
+    ] with-unique-directory drop ;
 
 : upload-source-release ( package version -- )
     "Uploading source release..." print flush