gio: g_try_malloc0 does not abort.

diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm
index e5c5cee613c19d739e23b06940b15af4fb30f4f1..e718aab2985db3bfc57f9a1b33f1b3502793db7b 100644 (file)
--- a/src/gtk/gio.scm
+++ b/src/gtk/gio.scm
@@ -168,7 +168,7 @@ USA.
   (call-next-method object)
   (let* ((gio-info (gio-cleanup-info object))
         (gerror* (gio-cleanup-info-gerror-pointer gio-info)))
-    (C-call "g_malloc0" gerror* (C-sizeof "* GError"))
+    (C-call "g_try_malloc0" gerror* (C-sizeof "* GError"))
     (error-if-null gerror* "Could not create:" gerror*)))
 
 (define-syntax cleanup-callback-id

diff --git a/src/gtk/gtk.cdecl b/src/gtk/gtk.cdecl
index 6f9a654fad4baa3926b8125c363141c72429d858..daa3da39c90364d063a687e914e7db2bdbbc5f23 100644 (file)
--- a/src/gtk/gtk.cdecl
+++ b/src/gtk/gtk.cdecl
@@ -37,7 +37,7 @@ USA.
 ;;; gio.scm
 
 (extern gpointer
-       g_malloc0
+       g_try_malloc0
        (n_bytes gsize))
 
 (callback void