From 240dd224cccfbd224f1e770f1589d6124cf6bb1f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 4 Jan 2023 21:09:15 -0500
Subject: render: Fix render-copy to use rect objects properly.

---
 sdl2/render.scm | 6 +++---
 1 file 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)
-- 
cgit v1.2.3