tools.deploy.unix: make sure extension isn't appended to deploy-path …

…on macos
mrjbq7 · Nov 18, 2024 · a34c4f4 · a34c4f4
1 parent 9a9697c
commit a34c4f4
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/basis/tools/deploy/unix/unix.factor b/basis/tools/deploy/unix/unix.factor
@@ -8,9 +8,11 @@ IN: tools.deploy.unix
 
 CONSTANT: extension ".out"
 
+: ?extension ( path -- path.out )
+    os macos? [ extension append ] unless ;
+
 : create-app-dir ( vocab bundle-name -- vm-path )
-    [ os macos? [ extension append ] unless ] dip
-    copy-vm dup 0o755 set-file-permissions ;
+    [ ?extension ] dip copy-vm dup 0o755 set-file-permissions ;
 
 M: unix deploy*
     deploy-name get
@@ -26,7 +28,7 @@ M: unix deploy-path
     deploy-directory get [
         dup deploy-config [
             deploy-name get
-            swap extension append append-path
+            swap ?extension append-path
             normalize-path
         ] with-variables
     ] with-directory ;