From 8c686c67f9ae3da30e0231ef4ec1e8e5117d3944 Mon Sep 17 00:00:00 2001
From: Matthew Willis <matthew.willis@mac.com>
Date: Sat, 31 May 2008 13:41:54 -0700
Subject: [PATCH] pango.fonts: make sure to free arrays with g_free

---
 extra/pango/fonts/fonts.factor | 6 +++---
 extra/pango/pango.factor       | 5 +++++
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/extra/pango/fonts/fonts.factor b/extra/pango/fonts/fonts.factor
index 6076b6a254..d07c71226a 100644
--- a/extra/pango/fonts/fonts.factor
+++ b/extra/pango/fonts/fonts.factor
@@ -26,15 +26,15 @@ pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
 
 : list-families ( PangoFontMap* -- PangoFontFamily*-seq )
     0 <int> 0 <int> [ pango_font_map_list_families ] 2keep
-    *int >r *void* r> c-void*-array> ;
+    *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
 
 : list-faces ( PangoFontFamily* -- PangoFontFace*-seq )
     0 <int> 0 <int> [ pango_font_family_list_faces ] 2keep
-    *int >r *void* r> c-void*-array> ;
+    *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
 
 : list-sizes ( PangoFontFace* -- ints )
     0 <int> 0 <int> [ pango_font_face_list_sizes ] 2keep
-    *int >r *void* r> c-int-array> ;
+    *int swap *void* [ swap c-int-array> ] [ g_free ] bi ;
 
 : monospace? ( PangoFontFamily* -- ? )
     pango_font_family_is_monospace 1 = ;
diff --git a/extra/pango/pango.factor b/extra/pango/pango.factor
index 3836a43e3f..3549d9abb4 100644
--- a/extra/pango/pango.factor
+++ b/extra/pango/pango.factor
@@ -48,7 +48,12 @@ pango_layout_get_pixel_size ( PangoLayout* layout, int* width, int* height ) ;
 FUNCTION: void
 pango_font_description_free ( PangoFontDescription* desc ) ;
 
+! glib functions
+
 TYPEDEF: void* gpointer
 
 FUNCTION: void
 g_object_unref ( gpointer object ) ;
+
+FUNCTION: void
+g_free ( gpointer mem ) ;