From c94fa35bc5be2503111c0cbdca03de7db4d74994 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 17 Apr 2016 11:12:50 -0600
Subject: [PATCH] repair to work with ancient Gtk
(cherry picked from commit 2fa9b946835d4dad69cecfa7677f9f134726fcdb)
---
gui-lib/mred/private/wx/gtk/gsettings.rkt | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/gui-lib/mred/private/wx/gtk/gsettings.rkt b/gui-lib/mred/private/wx/gtk/gsettings.rkt
index d6afa7a4..760104b4 100644
--- a/gui-lib/mred/private/wx/gtk/gsettings.rkt
+++ b/gui-lib/mred/private/wx/gtk/gsettings.rkt
@@ -9,7 +9,11 @@
(provide (protect-out (all-defined-out)))
(define-runtime-lib gio-lib
- [(unix) (ffi-lib "libgio-2.0" '("0" ""))]
+ [(unix) (ffi-lib "libgio-2.0" '("0" "")
+ ;; For old glib, libgio isn't separate;
+ ;; try to find bindings in already-loaded
+ ;; libraries:
+ #:fail (lambda () #f))]
[(macosx)
(ffi-lib "libgio-2.0.0.dylib")]
[(windows)