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 4392cbc19d4e98be3991642b1b14393e4adb9e71..127757958bf3b539feb88fe53f723a8d73418d7a 100644 (file)
--- 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 d2b8739812a41033c8a8d3022242565274f5bafb..540450ae27ee7068ad6e88ce042eebcc5ecb046f 100644 (file)
--- 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)