From c4bcb53934bc9ce0624affe877e2e7a0afa8d053 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 3 May 2021 19:59:25 -0400
Subject: node-2d: Tiny reorganization of pick code.

---
 starling/node-2d.scm | 4 ++--
 1 file 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
              (()
-- 
cgit v1.2.3