at-point ( point tree -- value/f ? )

Vocabulary

quadtrees.private

Inputs

point	an object
tree	an object

Outputs

value/f	an object
?	an object

Definition

USING: accessors kernel ;

IN: quadtrees.private

: at-point ( point tree -- value/f ? )
    dup leaf?>> [ leaf-at-point ] [ node-at-point ] if ;