From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Mon, 7 Dec 2015 19:31:08 +0000 (-0700)
Subject: glib: Use g_free to free a *GError allocated with g_try_malloc0.
X-Git-Tag: mit-scheme-pucked-9.2.12~387
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8086ebb880787cfb7d47c790642752e574a41101;p=mit-scheme.git

glib: Use g_free to free a *GError allocated with g_try_malloc0.
---

diff --git a/src/glib/gio.scm b/src/glib/gio.scm
index 4392cbc19..127757958 100644
--- a/src/glib/gio.scm
+++ b/src/glib/gio.scm
@@ -198,7 +198,7 @@ USA.
 	(C-> gerror* "* GError" gerror)
 	(if (not (alien-null? gerror))
 	    (C-call "g_error_free" gerror))
-	((ucode-primitive c-free 1) gerror*)
+	(C-call "g_free" gerror*)
 	(alien-null! gerror*))))
 
 (define-integrable-operator (cleanup-gio gio-info)
diff --git a/src/glib/glib.pkg b/src/glib/glib.pkg
index d2b873981..540450ae2 100644
--- a/src/glib/glib.pkg
+++ b/src/glib/glib.pkg
@@ -49,8 +49,6 @@ USA.
   (parent (glib))
   (files "gio")
   ;;(depends-on "glib.bin" "glib")
-  (import (runtime)
-	  ucode-primitive)
   (import (runtime ffi)
 	  %set-alien/address!)
   (import (runtime generic-i/o-port)