use radix literals

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

diff --git a/basis/tools/deploy/unix/unix.factor b/basis/tools/deploy/unix/unix.factor
index ba7dd4d95e4f6e6f32a8ea955b561de8ca3fe937..629e607b625bdfc6b49adb9f032583b3c5365dd6 100644 (file)
--- a/basis/tools/deploy/unix/unix.factor
+++ b/basis/tools/deploy/unix/unix.factor
@@ -1,23 +1,13 @@
 ! Copyright (C) 2008 James Cash
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io io.backend io.directories io.files io.files.info.unix
-io.pathnames kernel namespaces sequences system
-tools.deploy.backend tools.deploy.config
-tools.deploy.config.editor vocabs.loader vocabs.metadata ;
+USING: io io.backend io.directories io.files.info.unix kernel
+namespaces sequences system tools.deploy.backend
+tools.deploy.config tools.deploy.config.editor ;
 IN: tools.deploy.unix
 
-: used-icon ( vocab -- ico )
-    dup vocab-dir "icon.png" append-path vocab-append-path
-    [ exists? ] keep "vocab:ui/backend/gtk/icon.png" ? ;
-
-: copy-icon ( vocab bundle-name -- )
-    [ used-icon ]
-    [ "ui/backend/gtk/icon.png" append-path ] bi*
-    copy-file ;
-
 : create-app-dir ( vocab bundle-name -- vm )
-    [ copy-vm ] [ copy-icon ] 2bi
-    dup OCT: 755 set-file-permissions ;
+    copy-vm
+    dup 0o755 set-file-permissions ;
 
 : bundle-name ( -- str )
     deploy-name get ;