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

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

diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 4c6593f92187709c2ba229e5f94f3c5630ce1a94..f1b75832c1f053f41d337fea68c4b66d9b2e5223 100755 (executable)
--- 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