From 8de16a52e22256d5785827975c5638a6ae95fedf Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 8 Jan 2019 12:17:43 -0800
Subject: [PATCH] unsend

---
 quad/quad/qexpr.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/quad/quad/qexpr.rkt b/quad/quad/qexpr.rkt
index faa7f730..991c7b37 100644
--- a/quad/quad/qexpr.rkt
+++ b/quad/quad/qexpr.rkt
@@ -59,7 +59,7 @@
   (quad? . -> . qexpr?)
   (let loop ([x q])
     (cond
-      [(quad? x) (apply qexpr #:name (quad-name x) #:clean-attrs? #t (hash->qattrs (send x attrs)) (map loop (send x elems)))]
+      [(quad? x) (apply qexpr #:name (quad-name x) #:clean-attrs? #t (hash->qattrs (quad-attrs x)) (map loop (quad-elems x)))]
       [else x])))
 
 (define/contract (qexpr->quad x)