From a1a123c0c6635dd372701d8881a26614769186d8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 10 Jul 2012 17:24:54 -0700 Subject: [PATCH] cairo: Store the error number in the error tuple. --- basis/cairo/cairo.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/cairo/cairo.factor b/basis/cairo/cairo.factor index 38398ae228..d3edd9022a 100644 --- 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) ;