From 2ecdf1e97f415a5818c4dcd7a2ddff6dc7ecdd0f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 30 Apr 2021 09:25:23 -0400 Subject: Add fallback method for loading shared libraries. --- sdl2/bindings/image.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sdl2/bindings/image.scm') diff --git a/sdl2/bindings/image.scm b/sdl2/bindings/image.scm index 598c024..0902d6c 100644 --- a/sdl2/bindings/image.scm +++ b/sdl2/bindings/image.scm @@ -28,7 +28,7 @@ #:use-module (sdl2 config)) (define sdl-image-func - (let ((lib (dynamic-link %libsdl2-image))) + (let ((lib (dynamic-link* %libsdl2-image))) (lambda (return-type function-name arg-types) "Return a procedure for the foreign function FUNCTION-NAME in the SDL2_image shared library. That function must return a value of -- cgit v1.2.3