summaryrefslogtreecommitdiff
path: root/sdl2/video.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2020-12-05 12:49:50 -0500
committerDavid Thompson <dthompson2@worcester.edu>2020-12-05 12:52:11 -0500
commit5d313ab4e8584c1d9dbfccf5c69bc48a43ee37c8 (patch)
tree9c0655e7c37bc188902d2395fe89af0f133644dc /sdl2/video.scm
parentf68b22ee64a737b121d5f4eb306175a3a53341bf (diff)
video: Change window size/position procedures to return multiple values.
Diffstat (limited to 'sdl2/video.scm')
-rw-r--r--sdl2/video.scm3
1 files changed, 2 insertions, 1 deletions
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."