diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-12-05 12:49:50 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-05 12:52:11 -0500 |
| commit | 5d313ab4e8584c1d9dbfccf5c69bc48a43ee37c8 (patch) | |
| tree | 9c0655e7c37bc188902d2395fe89af0f133644dc /sdl2 | |
| parent | f68b22ee64a737b121d5f4eb306175a3a53341bf (diff) | |
video: Change window size/position procedures to return multiple values.
Diffstat (limited to 'sdl2')
| -rw-r--r-- | sdl2/video.scm | 3 |
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." |