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 +- sdl2/bindings/mixer.scm | 2 +- sdl2/bindings/ttf.scm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'sdl2/bindings') 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 diff --git a/sdl2/bindings/mixer.scm b/sdl2/bindings/mixer.scm index 638b409..73b5fdb 100644 --- a/sdl2/bindings/mixer.scm +++ b/sdl2/bindings/mixer.scm @@ -30,7 +30,7 @@ #:use-module (sdl2 bindings)) (define sdl-mixer-func - (let ((lib (dynamic-link %libsdl2-mixer))) + (let ((lib (dynamic-link* %libsdl2-mixer))) (lambda (return-type function-name arg-types) "Return a procedure for the foreign function FUNCTION-NAME in the SDL2_mixer shared library. That function must return a value of diff --git a/sdl2/bindings/ttf.scm b/sdl2/bindings/ttf.scm index 1accf6c..f559da4 100644 --- a/sdl2/bindings/ttf.scm +++ b/sdl2/bindings/ttf.scm @@ -29,7 +29,7 @@ #:use-module (sdl2 bindings)) (define sdl-ttf-func - (let ((lib (dynamic-link %libsdl2-ttf))) + (let ((lib (dynamic-link* %libsdl2-ttf))) (lambda (return-type function-name arg-types) "Return a procedure for the foreign function FUNCTION-NAME in the SDL2_ttf shared library. That function must return a value of -- cgit v1.2.3