From 8256fc1b42490765ebc1cd1e4ed4557261ca2312 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Mon, 19 May 2008 19:53:39 -0500
Subject: [PATCH] Fix windows.com load errors
---
extra/windows/com/com-tests.factor | 2 +-
extra/windows/com/wrapper/wrapper-docs.factor | 3 ++-
extra/windows/com/wrapper/wrapper.factor | 2 +-
3 files changed, 4 insertions(+), 3 deletions(-)
mode change 100644 => 100755 extra/windows/com/com-tests.factor
mode change 100644 => 100755 extra/windows/com/wrapper/wrapper-docs.factor
diff --git a/extra/windows/com/com-tests.factor b/extra/windows/com/com-tests.factor
old mode 100644
new mode 100755
index e2685db1d0..abba8874d6
--- a/extra/windows/com/com-tests.factor
+++ b/extra/windows/com/com-tests.factor
@@ -1,7 +1,7 @@
USING: kernel windows.com windows.com.syntax windows.ole32
alien alien.syntax tools.test libc alien.c-types arrays.lib
namespaces arrays continuations accessors math windows.com.wrapper
-windows.com.wrapper.private ;
+windows.com.wrapper.private destructors ;
IN: windows.com.tests
COM-INTERFACE: ISimple IUnknown {216fb341-0eb2-44b1-8edb-60b76e353abc}
diff --git a/extra/windows/com/wrapper/wrapper-docs.factor b/extra/windows/com/wrapper/wrapper-docs.factor
old mode 100644
new mode 100755
index 51a3549047..89b199a38b
--- a/extra/windows/com/wrapper/wrapper-docs.factor
+++ b/extra/windows/com/wrapper/wrapper-docs.factor
@@ -1,5 +1,6 @@
USING: help.markup help.syntax io kernel math quotations
-multiline alien windows.com windows.com.syntax continuations ;
+multiline alien windows.com windows.com.syntax continuations
+destructors ;
IN: windows.com.wrapper
HELP: <com-wrapper>
diff --git a/extra/windows/com/wrapper/wrapper.factor b/extra/windows/com/wrapper/wrapper.factor
index ae5f03a594..5b7bb63590 100755
--- a/extra/windows/com/wrapper/wrapper.factor
+++ b/extra/windows/com/wrapper/wrapper.factor
@@ -2,7 +2,7 @@ USING: alien alien.c-types windows.com.syntax
windows.com.syntax.private windows.com continuations kernel
sequences.lib namespaces windows.ole32 libc
assocs accessors arrays sequences quotations combinators
-math combinators.lib words compiler.units ;
+math combinators.lib words compiler.units destructors ;
IN: windows.com.wrapper
TUPLE: com-wrapper vtbls freed? ;