From 8eb645029682e31f2d39bd5ff3764248420d2b39 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 4 Feb 2019 12:28:22 -0800
Subject: [PATCH] quad-set!

---
 quad/quad/quad.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/quad/quad/quad.rkt b/quad/quad/quad.rkt
index 78c5a4aa..d417dbe1 100644
--- a/quad/quad/quad.rkt
+++ b/quad/quad/quad.rkt
@@ -62,6 +62,10 @@
 (define (quad-ref q key [default-val #f])
   (hash-ref (quad-attrs q) key default-val))
 
+(define (quad-set! q key val)
+  (hash-set! (quad-attrs q) key val)
+  q)
+
 (define (default-printable q [sig #f]) #t)
 
 (define (default-draw q surface)