From 5d313ab4e8584c1d9dbfccf5c69bc48a43ee37c8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 12:49:50 -0500
Subject: video: Change window size/position procedures to return multiple
 values.

---
 sdl2/video.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'sdl2')

diff --git a/sdl2/video.scm b/sdl2/video.scm
index dda917a..a9e44db 100644
--- a/sdl2/video.scm
+++ b/sdl2/video.scm
@@ -160,7 +160,8 @@ returns or otherwise exits."
     (proc (unwrap-window window)
           (bytevector->pointer bv)
           (bytevector->pointer bv (sizeof int)))
-    (bytevector->sint-list bv (native-endianness) (sizeof int))))
+    (values (bytevector-sint-ref bv 0 (native-endianness) (sizeof int))
+            (bytevector-sint-ref bv (sizeof int) (native-endianness) (sizeof int)))))
 
 (define (window-size window)
   "Return the dimensions of WINDOW."
-- 
cgit v1.2.3