find-boids-gadget ( gadget -- boids-gadget )


Vocabulary
boids.private

Inputs
gadgetan object


Outputs
boids-gadgetan object


Definition
USING: accessors boids kernel sequences ;

IN: boids.private

: find-boids-gadget ( gadget -- boids-gadget )
dup boids-gadget?
[ children>> [ boids-gadget? ] find nip ] unless ;