From 8086ebb880787cfb7d47c790642752e574a41101 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Mon, 7 Dec 2015 12:31:08 -0700
Subject: [PATCH] glib: Use g_free to free a *GError allocated with
 g_try_malloc0.

---
 src/glib/gio.scm  | 2 +-
 src/glib/glib.pkg | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

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)
-- 
2.25.1