From 37e7349dee50301ddfc2a3fc4da87c70b14486f3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 6 Jun 2015 17:04:02 -0700
Subject: [PATCH] windows.com: Prevent release from being called with f, which
 causes a segfault.

---
 basis/windows/com/com.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 7b30c71e51..4aa1bc2512 100644
--- 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