From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 17 Nov 2013 19:51:50 +0000 (-0700)
Subject: gio: g_try_malloc0 does not abort.
X-Git-Tag: mit-scheme-pucked-9.2.12~419
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3e46a167f3a8e6661f00bb1c1ea0958323df04cc;p=mit-scheme.git

gio: g_try_malloc0 does not abort.
---

diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm
index e5c5cee61..e718aab29 100644
--- 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 6f9a654fa..daa3da39c 100644
--- 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