From 0ad69eb4b4601b026891d29236a3d888f579815d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 8 May 2019 11:01:12 -0700 Subject: [PATCH] also elements to elems --- quad/quad/position.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quad/quad/position.rkt b/quad/quad/position.rkt index e9791772..dd1bedc4 100644 --- a/quad/quad/position.rkt +++ b/quad/quad/position.rkt @@ -93,8 +93,8 @@ ;; but we don't want this origin to be permanent on the parent. ;; akin to `push` a graphics state and then `pop` afterwards. (let ([parent-q (struct-copy quad positioned-q - [origin (pt+ (quad-origin positioned-q) (quad-shift-elements positioned-q))] - [shift-elements (pt 0 0)])]) + [origin (pt+ (quad-origin positioned-q) (quad-shift-elems positioned-q))] + [shift-elems (pt 0 0)])]) ;; can't use for/list here because previous quads provide context for later ones (let loop ([prev-elems null] [elems (quad-elems parent-q)]) (match elems