From bbac3c383c6564813e906797ea7cb2b76c0dcdfb Mon Sep 17 00:00:00 2001 From: Leo Prikler Date: Tue, 15 Dec 2020 16:10:17 +0100 Subject: Fix return value(s) of renderer-logical-size. --- sdl2/render.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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." -- cgit v1.2.3