From 9a69ee2f0aacb759c4fa21dca60ebdf31cb1992b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 17 Jan 2009 18:52:42 -0600
Subject: [PATCH] Use destructors in windows.com

---
 basis/windows/com/com.factor | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 0e1a907ca7..af828c9145 100644
--- a/basis/windows/com/com.factor
+++ b/basis/windows/com/com.factor
@@ -1,6 +1,6 @@
-USING: alien alien.c-types windows.com.syntax windows.ole32
-windows.types continuations kernel alien.syntax libc
-destructors accessors ;
+USING: alien alien.c-types alien.destructors windows.com.syntax
+windows.ole32 windows.types continuations kernel alien.syntax
+libc destructors accessors ;
 IN: windows.com
 
 LIBRARY: ole32
@@ -42,10 +42,4 @@ COM-INTERFACE: IDropTarget IUnknown {00000122-0000-0000-C000-000000000046}
 : with-com-interface ( interface quot -- )
     over [ slip ] [ com-release ] [ ] cleanup ; inline
 
-TUPLE: com-destructor interface disposed ;
-M: com-destructor dispose* interface>> com-release ;
-
-: &com-release ( interface -- interface )
-    dup f com-destructor boa &dispose drop ;
-: |com-release ( interface -- interface )
-    dup f com-destructor boa |dispose drop ;
+DESTRUCTOR: com-release