basis: ERROR: changes.

[factor.git] / basis / cairo / cairo.factor

diff --git a/basis/cairo/cairo.factor b/basis/cairo/cairo.factor
index d3edd9022abc81586fce656b8bae2f8df1f4535b..9ed9d3bdcee6874fa5adfd3d03478ab95781694e 100644 (file)
--- a/basis/cairo/cairo.factor
+++ b/basis/cairo/cairo.factor
@@ -10,7 +10,7 @@ ERROR: cairo-error n message ;
 
 : (check-cairo) ( cairo_status_t -- )
     dup CAIRO_STATUS_SUCCESS =
-    [ drop ] [ [ ] [ cairo_status_to_string ] bi cairo-error ] if ;
+    [ drop ] [ [ ] [ cairo_status_to_string ] bi throw-cairo-error ] if ;
 
 : check-cairo ( cairo -- ) cairo_status (check-cairo) ;