summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node-2d.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index f340600..71f43bf 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -524,8 +524,8 @@
(follow-bezier-path node path duration #t))
(define-method (pick (node <node-2d>) p pred)
- (let ((bb (bounding-box node)))
- (and (pred node)
+ (and (pred node)
+ (let ((bb (bounding-box node)))
(let loop ((kids (reverse (children node))))
(match kids
(()