tools.deploy.macosx: using ?delete-tree

diff --git a/basis/tools/deploy/macosx/macosx.factor b/basis/tools/deploy/macosx/macosx.factor
index 6d18c75b85403bef1c8740dab5949e454b7bf5ff..81fe9cc5d27b0057e5998aa653dbfb49b78ba8f7 100644 (file)
--- a/basis/tools/deploy/macosx/macosx.factor
+++ b/basis/tools/deploy/macosx/macosx.factor
@@ -71,7 +71,7 @@ IN: tools.deploy.macosx
     [ % "/Contents/Resources/" % % ".image" % ] "" make ;
 
 : deploy-app-bundle ( vocab -- )
-    bundle-name dup file-exists? [ delete-tree ] [ drop ] if
+    bundle-name ?delete-tree
     [ bundle-name create-app-dir ] keep
     [ bundle-name deploy.app-image-name ] keep
     namespace make-deploy-image