From 9a2abebf312c11eed0ce7fbace7152de21ba883a Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 13 May 2022 19:29:17 -0700
Subject: [PATCH] note

---
 quad2/draw.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/quad2/draw.rkt b/quad2/draw.rkt
index 00a391d6..12f75d0d 100644
--- a/quad2/draw.rkt
+++ b/quad2/draw.rkt
@@ -44,6 +44,8 @@
   (string-join
    (for/list ([x (in-list xs)])
              (string-join (map ~a (match x
+                                    ;; TODO: embed these code-generating functions
+                                    ;; as properties of the structs
                                     [($move ($point x y)) (list y x 'move)]
                                     [($text charint) (list charint 'text)]
                                     [($font path-string) (list path-string 'set-font)]