io.files: exists? -> file-exists? and rename primitive.

[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 2b6a8e3a09543dbfdfcfcab2f1a6cb3d3ab344ef..3e0a502af3b250c0db15547bf2c7767cea7bbe1e 100644 (file)
--- a/basis/tools/deploy/macosx/macosx.factor
+++ b/basis/tools/deploy/macosx/macosx.factor
@@ -49,7 +49,7 @@ IN: tools.deploy.macosx
     vocab-dir "icon.icns" append-path ;
 
 : copy-icns ( vocab bundle-name -- icon? )
-    swap dup vocab-mac-icon-path vocab-append-path dup exists?
+    swap dup vocab-mac-icon-path vocab-append-path dup file-exists?
     [ swap "Contents/Resources/Icon.icns" append-path copy-file t ]
     [ 2drop f ] if ;
 
@@ -74,7 +74,7 @@ IN: tools.deploy.macosx
     [ % "/Contents/Resources/" % % ".image" % ] "" make ;
 
 : deploy-app-bundle ( vocab -- )
-    bundle-name dup exists? [ delete-tree ] [ drop ] if
+    bundle-name dup file-exists? [ delete-tree ] [ drop ] if
     [ bundle-name create-app-dir ] keep
     [ bundle-name deploy.app-image-name ] keep
     namespace make-deploy-image