with-cairo ( cairo quot -- )


Vocabulary
cairo-gadgets.private

Inputs
cairoan object
quotan object


Outputs
None

Definition
USING: cairo cairo-gadgets cairo.ffi kernel namespaces ;

IN: cairo-gadgets.private

: with-cairo ( cairo quot -- )
[ &cairo_destroy current-cairo ] dip
[ current-cairo get check-cairo ] compose with-variable ;
inline