basis: ERROR: changes.

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

diff --git a/basis/windows/gdiplus/gdiplus.factor b/basis/windows/gdiplus/gdiplus.factor
index a43ce235ba8c3f8822e2f8f338aede71f9d9764c..5398dd4706e49df2438f951c3ddbadd6ac198768 100644 (file)
--- a/basis/windows/gdiplus/gdiplus.factor
+++ b/basis/windows/gdiplus/gdiplus.factor
@@ -1628,7 +1628,7 @@ FUNCTION: GpStatus GdipTestControl ( GpTestControlEnum x, void* x )
 ERROR: gdi+-error status ;
 
 : check-gdi+-status ( GpStatus -- )
-    dup Ok = [ drop ] [ gdi+-error ] if ;
+    dup Ok = [ drop ] [ throw-gdi+-error ] if ;
 
 CONSTANT: standard-gdi+-startup-input
     S{ GdiplusStartupInput