From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 21 Jun 2012 07:20:33 +0000 (-0700)
Subject: issue #358: rename ole32-error -> check-ole32-error
X-Git-Tag: 0.97~2980
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3dd30d2f49512bd61aa1081d6e2bf064d6e92466

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

diff --git a/basis/io/files/temp/windows/windows.factor b/basis/io/files/temp/windows/windows.factor
index 3d1a66a824..cb092feba7 100644
--- a/basis/io/files/temp/windows/windows.factor
+++ b/basis/io/files/temp/windows/windows.factor
@@ -21,8 +21,8 @@ IN: io.files.temp.windows
     0
     MAX_PATH 1 + WCHAR <c-array>
     [ SHGetFolderPath ] keep
-    swap ole32-error
-    alien>native-string ;
+    swap check-ole32-error
+    utf16n alien>native-string ;
 
 PRIVATE>
 
diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 41059c5669..7b30c71e51 100644
--- 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 )
diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor
index 5603a1cc23..abf255d4d0 100644
--- a/basis/windows/ole32/ole32.factor
+++ b/basis/windows/ole32/ole32.factor
@@ -122,11 +122,11 @@ TUPLE: ole32-error code message ;
 : <ole32-error> ( code -- error )
     dup n>win32-error-string \ ole32-error boa ;
 
-: ole32-error ( hresult -- )
+: check-ole32-error ( hresult -- )
     dup succeeded? [ drop ] [ <ole32-error> throw ] if ;
 
 : ole-initialize ( -- )
-    f OleInitialize ole32-error ;
+    f OleInitialize check-ole32-error ;
 
 : guid= ( a b -- ? )
     [ 16 memory>byte-array ] bi@ = ;
diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 4c6593f921..f1b75832c1 100755
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@@ -20,12 +20,12 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
         swap ! icp
         FALSE ! fTrailing
     ] if
-    { int } [ ScriptStringCPtoX ole32-error ] with-out-parameters ;
+    { int } [ ScriptStringCPtoX check-ole32-error ] with-out-parameters ;
 
 : x>line-offset ( x script-string -- n trailing )
     ssa>> ! ssa
     swap ! iX
-    { int int } [ ScriptStringXtoCP ole32-error ] with-out-parameters ;
+    { int int } [ ScriptStringXtoCP check-ole32-error ] with-out-parameters ;
 
 <PRIVATE
 
@@ -44,7 +44,7 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
     f ! pbInClass
     f void* <ref> ! pssa
     [ ScriptStringAnalyse ] keep
-    [ ole32-error ] [ |ScriptStringFree void* deref ] bi* ;
+    [ check-ole32-error ] [ |ScriptStringFree void* deref ] bi* ;
 
 : set-dc-colors ( dc font -- )
     [ background>> color>RGB SetBkColor drop ]
@@ -65,7 +65,7 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
     ! iMinSel
     ! iMaxSel
     FALSE ! fDisabled
-    ScriptStringOut ole32-error ;
+    ScriptStringOut check-ole32-error ;
 
 : draw-script-string ( dc script-string -- )
     [ font>> set-dc-colors ] keep (draw-script-string) ;
@@ -103,7 +103,7 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
 PRIVATE>
 
 M: script-string dispose*
-    ssa>> void* <ref> ScriptStringFree ole32-error ;
+    ssa>> void* <ref> ScriptStringFree check-ole32-error ;
 
 SYMBOL: cached-script-strings