summaryrefslogtreecommitdiff
path: root/sdl2/ttf.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2020-12-05 13:05:33 -0500
committerDavid Thompson <dthompson2@worcester.edu>2020-12-05 13:05:33 -0500
commitf4df3a7ac08bb6c50956bf27534d4f51423ec863 (patch)
tree10842f0239775a233a8a8f3035cbb0063c4ee20d /sdl2/ttf.scm
parent04f8a22e3f1570dc3ccf75449ee31bd43bfa8353 (diff)
ttf: Return multiple values instead of a list in font-size.
Diffstat (limited to 'sdl2/ttf.scm')
-rw-r--r--sdl2/ttf.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/sdl2/ttf.scm b/sdl2/ttf.scm
index f3161b2..b1345d6 100644
--- a/sdl2/ttf.scm
+++ b/sdl2/ttf.scm
@@ -94,14 +94,14 @@ size is POINT-SIZE."
(ffi:ttf-font-line-skip (unwrap-font font)))
(define (font-size font text)
- "Return a 2-element list containing the resulting surface size of
-the string TEXT using FONT in the following format: (width height)."
+ "Return 2 values for the resulting surface size of the string TEXT
+using FONT."
(let ((bv (make-s32vector 2)))
(if (zero? (ffi:ttf-size-utf8 (unwrap-font font)
(string->pointer text)
(bytevector->pointer bv)
(bytevector->pointer bv 4)))
- (s32vector->list bv)
+ (values (s32vector-ref bv 0) (s32vector-ref bv 1))
(sdl-error "size-utf8" "failed to get size utf8"))))
(define (font-glyph-index font char)