diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-05-03 19:59:25 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-05-03 19:59:25 -0400 |
| commit | c4bcb53934bc9ce0624affe877e2e7a0afa8d053 (patch) | |
| tree | c6d12cd282956a02e769c194713d20403ca9b5c1 | |
| parent | 10f53b84bc57fa4ce0d1646365f740b689b0e4b1 (diff) | |
node-2d: Tiny reorganization of pick code.
| -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 (() |