summaryrefslogtreecommitdiff
path: root/sdl2
diff options
context:
space:
mode:
authorLeo Prikler <leo.prikler@student.tugraz.at>2020-12-15 14:53:22 +0100
committerDavid Thompson <dthompson2@worcester.edu>2020-12-15 10:41:02 -0500
commit0d4a888ac65c3826b96fcdf27368e4a989558c23 (patch)
tree11ab09d330ec05d7881ea76801beddc0abdf0cc4 /sdl2
parented821d76b70a1454285d415dfae7db9394c535f2 (diff)
Fixup renderer-scale typo and return value.
Diffstat (limited to 'sdl2')
-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