From 0d4a888ac65c3826b96fcdf27368e4a989558c23 Mon Sep 17 00:00:00 2001 From: Leo Prikler Date: Tue, 15 Dec 2020 14:53:22 +0100 Subject: Fixup renderer-scale typo and return value. --- sdl2/render.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sdl2/render.scm b/sdl2/render.scm index 732798c..d9f3507 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -151,9 +151,9 @@ color." (let ((bv (make-bytevector (* 2 (sizeof float)) 0))) (ffi:sdl-render-get-scale (unwrap-renderer renderer) (bytevector->pointer bv) - (bytevector->pointer (sizeof float))) - (list (bytevector-ieee-single-native-ref bv 0) - (bytevector-ieee-single-native-ref bv 1)))) + (bytevector->pointer bv (sizeof float))) + (values (bytevector-ieee-single-native-ref bv 0) + (bytevector-ieee-single-native-ref bv (sizeof float))))) (define (set-renderer-scale! renderer scale-x scale-y) "Set the drawing scale of RENDERER according to SCALE-X and SCALE-Y -- cgit v1.2.3