From 04ceb7275ea341bef2b44dbcaa462b9ae90dac6f Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Mon, 27 Jun 2022 17:15:41 -0500
Subject: [typo]

---
 wheelwork.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'wheelwork.lisp')

diff --git a/wheelwork.lisp b/wheelwork.lisp
index 5807f30..20c5d86 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -722,7 +722,7 @@ ASSET-ARGS is a plist to pass to make-instance for the given resource.
       (setf vao vao%
             elem-count count%))
     (hq:with-plist (l r (top t) b) (cl-fond:compute-extent (font-object font) content)
-      (setf base-width ((- r l))
+      (setf base-width (- r l)
             base-height (+ top b)))))
 
 (defmethod cleanup ((text text))
-- 
cgit v1.2.3