quad-set!

5 years ago · 8eb6450296
parent 9f00a042d4
commit 8eb6450296
1 changed files with 4 additions and 0 deletions
--- 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)