issue #358: rename ole32-error -> check-ole32-error

[factor.git] / basis / windows / com / com.factor

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 41059c5669313fead4bfcbf4c9a11d2ffcdefad3..7b30c71e512ce5236ffd2f3d3def6da4287bb4ff 100644 (file)
--- a/basis/windows/com/com.factor
+++ b/basis/windows/com/com.factor
@@ -86,7 +86,7 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;
 
 : com-query-interface ( interface iid -- interface' )
     { void* }
-    [ IUnknown::QueryInterface ole32-error ]
+    [ IUnknown::QueryInterface check-ole32-error ]
     with-out-parameters ;
 
 : com-add-ref ( interface -- interface )