fix get-face-list bug (caused Windows 7 crash on my test)

2010-11-24 14:25:07 -07:00 · 2010-11-24 14:25:07 -07:00 · 470ed7c996
commit 470ed7c996
parent bd28f2ab54
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/draw/unsafe/pango.rkt
+++ b/collects/racket/draw/unsafe/pango.rkt
@ -230,7 +230,7 @@
                                                 -> (begin0
                                                      (for/list ([i (in-range len)])
                                                        (ptr-ref fams PangoFontFamily i))
-                                                      (free fams))))
+                                                      (g_free fams))))

 (define-pango pango_font_description_free (_fun PangoFontDescription -> _void) 
  #:wrap (deallocator))