(check-cairo) ( cairo_status_t -- )

Vocabulary

cairo

Inputs

cairo_status_t

an object

Outputs

None

Definition

USING: cairo.ffi kernel ;

IN: cairo

: (check-cairo) ( cairo_status_t -- )
    dup CAIRO_STATUS_SUCCESS =
    [ drop ] [ [ ] [ cairo_status_to_string ] bi cairo-error ]
    if ;