use radix literals

[factor.git] / basis / tools / deploy / macosx / macosx.factor

diff --git a/basis/tools/deploy/macosx/macosx.factor b/basis/tools/deploy/macosx/macosx.factor
index ecfe52928651092121c935ba08afd16965a1d264..98b3d2528a2b33dd204041ae1b9fb72470944959 100644 (file)
--- a/basis/tools/deploy/macosx/macosx.factor
+++ b/basis/tools/deploy/macosx/macosx.factor
@@ -17,7 +17,7 @@ IN: tools.deploy.macosx
 
 : copy-bundle-dir ( bundle-name dir -- )
     [ bundle-dir prepend-path swap ] keep
-    "Contents" prepend-path append-path copy-tree ;
+    append-path copy-tree ;
 
 : app-plist ( icon? executable bundle-name -- assoc )
     [
@@ -39,7 +39,7 @@ IN: tools.deploy.macosx
 
 : copy-nib ( bundle-name -- )
     deploy-ui? get [
-        "Resources/English.lproj/MiniFactor.nib" copy-bundle-dir
+        "Contents/Resources/English.lproj/MiniFactor.nib" copy-bundle-dir
     ] [ drop ] if ;
 
 : copy-icns ( vocab bundle-name -- icon? )
@@ -59,7 +59,7 @@ IN: tools.deploy.macosx
         [ create-app-plist ]
         [ "Contents/MacOS/" append-path copy-vm ]
     } 2cleave
-    dup OCT: 755 set-file-permissions ;
+    dup 0o755 set-file-permissions ;
 
 : deploy.app-image ( vocab bundle-name -- str )
     [ % "/Contents/Resources/" % % ".image" % ] "" make ;