uh, what I meant

4 years ago · 85d7eba608
parent d709b3bcdf
commit 85d7eba608
1 changed files with 5 additions and 5 deletions
--- a/quad/quad/position.rkt
+++ b/quad/quad/position.rkt
@ -141,11 +141,11 @@
  (append min-origin max-outer-pt))

 (define (attach-to from-q from-pt to-q to-pt)
-  (quad-update! to-q
-                [from-parent from-pt]
-                [to to-pt])
-  (quad-update! from-q
-                [elems (cons to-q (quad-elems from-q))]))
+  (struct-copy quad from-q
+               [elems (cons (struct-copy quad to-q
+                                         [from-parent from-pt]
+                                         [to to-pt])
+                            (quad-elems from-q))]))

 (module+ test
  (require rackunit)