X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Fole32%2Fole32.factor;fp=basis%2Fwindows%2Fole32%2Fole32.factor;h=b4faa6da0d2e7de5c97e0924a96b3e2ecef2384a;hp=ac351a1f91fc9457bb36f8879e15e2208d97a3f1;hb=19c53cad9e28e6480db918e4e28744176151e48f;hpb=478e2a29913d78c14fc409d7446b15b8da606961

diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor
index ac351a1f91..b4faa6da0d 100644
--- a/basis/windows/ole32/ole32.factor
+++ b/basis/windows/ole32/ole32.factor
@@ -36,6 +36,11 @@ CONSTANT: DRAGDROP_S_DROP 0x00040100
 CONSTANT: DRAGDROP_S_CANCEL 0x00040101
 CONSTANT: DRAGDROP_S_USEDEFAULTCURSORS 0x00040102
 
+ERROR: hresult-error n ;
+
+: check-hresult ( n -- )
+    dup S_OK = [ drop ] [ hresult-error ] if ;
+
 <<
 : >long ( integer -- long )
     long <ref> long deref ; inline