From 04397a63c7bf9c5a3dabc88c678822a6ec5a66ad Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 17 Aug 2009 23:58:44 -0500 Subject: [PATCH] windows.ole32: don't pull in debugger, reduces terrain demo deployed size by ~30kb --- basis/windows/ole32/ole32.factor | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor index 864700cb0f..d6a08325d9 100755 --- a/basis/windows/ole32/ole32.factor +++ b/basis/windows/ole32/ole32.factor @@ -1,5 +1,5 @@ USING: alien alien.syntax alien.c-types alien.strings math -kernel sequences windows.errors windows.types debugger io +kernel sequences windows.errors windows.types io accessors math.order namespaces make math.parser windows.kernel32 combinators locals specialized-arrays.direct.uchar ; IN: windows.ole32 @@ -116,11 +116,10 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ; : succeeded? ( hresult -- ? ) 0 HEX: 7FFFFFFF between? ; -TUPLE: ole32-error error-code ; -C: ole32-error +TUPLE: ole32-error code message ; -M: ole32-error error. - "COM method failed: " print error-code>> n>win32-error-string print ; +: ( code -- error ) + dup n>win32-error-string \ ole32-error boa ; : ole32-error ( hresult -- ) dup succeeded? [ drop ] [ throw ] if ;