Fix Windows deployment

2008-10-05 22:00:52 -05:00 · 2008-10-05 22:00:52 -05:00 · 66ae62638d
parent cf135e08b3
commit 66ae62638d
2 changed files with 2 additions and 2 deletions
--- 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
--- 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 [