diff options
| author | Leo Prikler <leo.prikler@student.tugraz.at> | 2020-12-15 14:53:22 +0100 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-15 10:41:02 -0500 |
| commit | 0d4a888ac65c3826b96fcdf27368e4a989558c23 (patch) | |
| tree | 11ab09d330ec05d7881ea76801beddc0abdf0cc4 | |
| parent | ed821d76b70a1454285d415dfae7db9394c535f2 (diff) | |
Fixup renderer-scale typo and return value.
| -rw-r--r-- | sdl2/render.scm | 6 |
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 |