diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-04-30 09:25:23 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-04-30 09:25:23 -0400 |
| commit | 2ecdf1e97f415a5818c4dcd7a2ddff6dc7ecdd0f (patch) | |
| tree | 9d8ec0d23d8f9b93114f2e35b5627bb52f350a60 /sdl2/bindings | |
| parent | 829f8cec9731e70b8ce24b9a20986e38a63305d1 (diff) | |
Add fallback method for loading shared libraries.
Diffstat (limited to 'sdl2/bindings')
| -rw-r--r-- | sdl2/bindings/image.scm | 2 | ||||
| -rw-r--r-- | sdl2/bindings/mixer.scm | 2 | ||||
| -rw-r--r-- | sdl2/bindings/ttf.scm | 2 |
3 files changed, 3 insertions, 3 deletions
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 |