diff options
| -rw-r--r-- | starling/node-2d.scm | 4 |
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 (() |