windows.com: Prevent release from being called with f, which causes a

segfault.

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 7b30c71e512ce5236ffd2f3d3def6da4287bb4ff..4aa1bc2512ad3ce9324670b518dc4c272cbe26e5 100644 (file)
--- a/basis/windows/com/com.factor
+++ b/basis/windows/com/com.factor
@@ -92,8 +92,9 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;
 : com-add-ref ( interface -- interface )
      [ IUnknown::AddRef drop ] keep ; inline
 
+ERROR: null-com-release ;
 : com-release ( interface -- )
-    IUnknown::Release drop ; inline
+    [ IUnknown::Release drop ] [ null-com-release ] if* ; inline
 
 : with-com-interface ( interface quot -- )
     over [ com-release ] curry [ ] cleanup ; inline