diff options
| author | Leo Prikler <leo.prikler@student.tugraz.at> | 2020-12-15 16:10:17 +0100 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-15 10:41:08 -0500 |
| commit | bbac3c383c6564813e906797ea7cb2b76c0dcdfb (patch) | |
| tree | a0133b19030d5bd371f551af721e582b3ff39c01 | |
| parent | 0d4a888ac65c3826b96fcdf27368e4a989558c23 (diff) | |
Fix return value(s) of renderer-logical-size.
| -rw-r--r-- | sdl2/render.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sdl2/render.scm b/sdl2/render.scm index d9f3507..948e256 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -137,7 +137,8 @@ color." (ffi:sdl-render-get-logical-size (unwrap-renderer renderer) (bytevector->pointer bv) (bytevector->pointer (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 (set-renderer-logical-size! renderer width height) "Set the logical size of RENDERER to WIDTH x HEIGHT." |