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

Vocabulary

quadtrees.private

Inputs

point	an object
leaf	an object

Outputs

value/f	an object
?	an object

Definition

USING: accessors kernel ;

IN: quadtrees.private

:: leaf-at-point ( point leaf -- value/f ? )
    point leaf point>> = [ leaf value>> t ] [ f f ] if ;