summaryrefslogtreecommitdiff
path: root/sdl2/bindings
diff options
context:
space:
mode:
Diffstat (limited to 'sdl2/bindings')
-rw-r--r--sdl2/bindings/image.scm2
-rw-r--r--sdl2/bindings/mixer.scm2
-rw-r--r--sdl2/bindings/ttf.scm2
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