cairo: Store the error number in the error tuple.

diff --git a/basis/cairo/cairo.factor b/basis/cairo/cairo.factor
index 38398ae228c4209a10492828ea37346c91c6105b..d3edd9022abc81586fce656b8bae2f8df1f4535b 100644 (file)
--- a/basis/cairo/cairo.factor
+++ b/basis/cairo/cairo.factor
@@ -6,11 +6,11 @@ sequences namespaces fry continuations destructors math images
 images.memory math.rectangles ;
 IN: cairo
 
-ERROR: cairo-error message ;
+ERROR: cairo-error n message ;
 
 : (check-cairo) ( cairo_status_t -- )
     dup CAIRO_STATUS_SUCCESS =
-    [ drop ] [ cairo_status_to_string cairo-error ] if ;
+    [ drop ] [ [ ] [ cairo_status_to_string ] bi cairo-error ] if ;
 
 : check-cairo ( cairo -- ) cairo_status (check-cairo) ;