From 85d7eba60832884c2327b4b1143e90d6255fcbca Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 4 Feb 2020 14:28:41 -0800 Subject: [PATCH] uh, what I meant --- quad/quad/position.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/quad/quad/position.rkt b/quad/quad/position.rkt index a52a9d8e..45b709fd 100644 --- 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)