unsend

6 years ago · 8de16a52e2
parent f45b95b6bb
commit 8de16a52e2
1 changed files with 1 additions and 1 deletions
--- 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)