From 66ae62638d74f983d923ba08daef139b64be838c Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Sun, 5 Oct 2008 22:00:52 -0500
Subject: [PATCH] Fix Windows deployment

---
 basis/tools/deploy/shaker/shaker.factor   | 2 +-
 basis/tools/deploy/windows/windows.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 basis/tools/deploy/shaker/shaker.factor
 mode change 100644 => 100755 basis/tools/deploy/windows/windows.factor

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
old mode 100644
new mode 100755
index 7c02e87209..d9348bedd5
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -321,7 +321,7 @@ IN: tools.deploy.shaker
     ] [ drop ] if ;
 
 : strip-c-io ( -- )
-    deploy-io get 2 = [
+    deploy-io get 2 = os windows? or [
         [
             c-io-backend forget
             "io.streams.c" forget-vocab
diff --git a/basis/tools/deploy/windows/windows.factor b/basis/tools/deploy/windows/windows.factor
old mode 100644
new mode 100755
index ce4fee19d7..ad1b3cbd84
--- a/basis/tools/deploy/windows/windows.factor
+++ b/basis/tools/deploy/windows/windows.factor
@@ -14,7 +14,7 @@ IN: tools.deploy.windows
             "resource:freetype6.dll"
             "resource:zlib1.dll"
         } swap copy-files-into
-    ] when ;
+    ] [ drop ] if ;
 
 : create-exe-dir ( vocab bundle-name -- vm )
     deploy-ui? get [