From 4c0235756268611821e496907cb28e2a8d9614b5 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 18 Apr 2013 12:39:30 -0400 Subject: [PATCH] Complain visibly when cannot load GL shared libs, instead of swallowing error. original commit: 38fffd35825b7d7e1fad5a430fc905240d2596e5 --- collects/mred/private/wx/gtk/gl-context.rkt | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/mred/private/wx/gtk/gl-context.rkt b/collects/mred/private/wx/gtk/gl-context.rkt index d2ee30c6..51192025 100644 --- a/collects/mred/private/wx/gtk/gl-context.rkt +++ b/collects/mred/private/wx/gtk/gl-context.rkt @@ -16,12 +16,15 @@ get-gdk-pixmap install-gl-context)) -(define gdkglext-lib - (with-handlers ([exn:fail? (lambda (exn) #f)]) - (ffi-lib "libgdkglext-x11-1.0" '("0")))) -(define gtkglext-lib - (with-handlers ([exn:fail? (lambda (exn) #f)]) - (ffi-lib "libgtkglext-x11-1.0" '("0")))) +(define (ffi-lib/complaint-on-failure name vers) + (ffi-lib name vers + #:fail (lambda () + (log-warning "could not load GL library ~a ~a" + name vers) + #f))) + +(define gdkglext-lib (ffi-lib/complaint-on-failure "libgdkglext-x11-1.0" '("0"))) +(define gtkglext-lib (ffi-lib/complaint-on-failure "libgtkglext-x11-1.0" '("0"))) (define-ffi-definer define-gdkglext gdkglext-lib #:default-make-fail make-not-available)