Fixing deploy

extra/cocoa/plists/plists.factor

@@ -19,5 +19,5 @@ M: hashtable >plist
     >plist 1array "plist" build-tag*
     dup { { "version" "1.0" } } update ;
 
-: print-plist ( obj -- )
+: plist>string ( obj -- string )
-    build-plist build-xml print-xml ;
+    build-plist build-xml xml>string ;

extra/tools/deploy/backend/backend.factor

@@ -23,7 +23,7 @@ IN: tools.deploy.backend
         +closed+ >>stdin
     utf8 <process-stream>
     dup copy-lines
-    process-stream-process wait-for-process zero? [
+    process>> wait-for-process zero? [
         "Deployment failed" throw
     ] unless ;
 
@@ -61,7 +61,7 @@ IN: tools.deploy.backend
     ] { } make ;
 
 : run-factor ( vm flags -- )
-    dup . swap add* run-with-output ; inline
+    swap add* dup . run-with-output ; inline
 
 : make-staging-image ( vm config -- )
     staging-command-line run-factor ;

extra/tools/deploy/macosx/macosx.factor

@@ -9,17 +9,18 @@ IN: tools.deploy.macosx
 : bundle-dir ( -- dir )
     vm parent-directory parent-directory ;
 
-: copy-bundle-dir ( name dir -- )
+: copy-bundle-dir ( bundle-name dir -- )
-    bundle-dir swap path+ swap "Contents" path+ copy-tree ;
+    bundle-dir over path+ -rot
+    "Contents" swap path+ path+ copy-tree ;
 
 : copy-vm ( executable bundle-name -- vm )
     "Contents/MacOS/" path+ swap path+ vm over copy-file ;
 
 : copy-fonts ( name -- )
     "fonts/" resource-path
-    swap "Contents/Resources/" path+ copy-tree ;
+    swap "Contents/Resources/" path+ copy-tree-into ;
 
-: print-app-plist ( executable bundle-name -- )
+: app-plist ( executable bundle-name -- string )
     [
         namespace {
             { "CFBundleInfoDictionaryVersion" "6.0" }
@@ -30,11 +31,12 @@ IN: tools.deploy.macosx
 
         dup "CFBundleExecutable" set
         "org.factor." swap append "CFBundleIdentifier" set
-    ] H{ } make-assoc print-plist ;
+    ] H{ } make-assoc plist>string ;
 
 : create-app-plist ( vocab bundle-name -- )
-    dup "Contents/Info.plist" path+
+    [ app-plist ] keep
-    utf8 [ print-app-plist ] with-file-writer ;
+    "Contents/Info.plist" path+
+    utf8 set-file-contents ;
 
 : create-app-dir ( vocab bundle-name -- vm )
     dup "Frameworks" copy-bundle-dir
@@ -62,7 +64,7 @@ M: macosx-deploy-implementation deploy* ( vocab -- )
     ".app deploy tool" assert.app
     "." resource-path cd
     dup deploy-config [
-        bundle-name delete-tree
+        bundle-name dup exists? [ delete-tree ] [ drop ] if
         [ bundle-name create-app-dir ] keep
         [ bundle-name deploy.app-image ] keep
         namespace make-deploy-image