[guile-cairo PATCH] fix cairo-pop-group wrapper to actually return the new pattern

[Patrick Bernaud]

* guile-cairo/guile-cairo.c (scm_cairo_pop_group): Fix return value.
  Bug #29040.
---
 guile-cairo/guile-cairo.c |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/guile-cairo/guile-cairo.c b/guile-cairo/guile-cairo.c
index fa983eb..b9a9b8e 100644
--- a/guile-cairo/guile-cairo.c
+++ b/guile-cairo/guile-cairo.c
@@ -353,8 +353,7 @@ SCM_DEFINE_PUBLIC (scm_cairo_pop_group, "cairo-pop-group", 
1, 0, 0,
                    (SCM ctx),
                    "")
 {
-  cairo_pop_group (scm_to_cairo (ctx));
-  CCHKRET (ctx, SCM_UNSPECIFIED);
+  CCHKRET (ctx, scm_from_cairo_pattern (cairo_pop_group (scm_to_cairo (ctx))));
 }
 
 SCM_DEFINE_PUBLIC (scm_cairo_pop_group_to_source, "cairo-pop-group-to-source", 
1, 0, 0,