summaryrefslogtreecommitdiff
path: root/sdl2
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-01-04 21:09:15 -0500
committerDavid Thompson <dthompson2@worcester.edu>2023-01-04 21:09:15 -0500
commit240dd224cccfbd224f1e770f1589d6124cf6bb1f (patch)
treeeaa5629a1232241d8e5a3d411dbdb77a869a40cc /sdl2
parent0b1d98247847e4136dae126995591b48ea51bc1b (diff)
render: Fix render-copy to use rect objects properly.
Diffstat (limited to 'sdl2')
-rw-r--r--sdl2/render.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/sdl2/render.scm b/sdl2/render.scm
index 79350e5..d5d345a 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -466,14 +466,14 @@ TEXTURE."
(unwrap-renderer renderer)
(unwrap-texture texture)
(if srcrect
- (make-c-struct ffi:sdl-rect srcrect)
+ ((@@ (sdl2 rect) unwrap-rect) srcrect)
%null-pointer)
(if dstrect
- (make-c-struct ffi:sdl-rect dstrect)
+ ((@@ (sdl2 rect) unwrap-rect) dstrect)
%null-pointer)
angle
(if center
- (make-c-struct ffi:sdl-point center)
+ ((@@ (sdl2 rect) unwrap-rect) center)
%null-pointer)
0)))
(unless (zero? result)