From 3b847cdf484001e12f5c739fdbf5cc9ae72394d8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 13 Dec 2018 08:18:06 -0500
Subject: render: font: Use set-vec2! where convenient.

* chickadee/render/font.scm (draw-text*): Use new set-vec2! procedure.
---
 chickadee/render/font.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/chickadee/render/font.scm b/chickadee/render/font.scm
index e1958a2..8ecd219 100644
--- a/chickadee/render/font.scm
+++ b/chickadee/render/font.scm
@@ -327,8 +327,7 @@ extension must be either .xml or .fnt."
                        (+ (vec2-x cursor)
                           (vec2-x
                            (font-char-advance char))))))
-      (set-vec2-x! cursor 0.0)
-      (set-vec2-y! cursor 0.0)
+      (set-vec2! cursor 0.0 0.0)
       (string-for-each render-char text start end))))
 
 (define %default-scale (vec2 1.0 1.0))
-- 
cgit v1.2.3