summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sdl2/render.scm6
1 files 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