Vocabulary
quadtrees.private

Inputs
pointan object
leafan object


Outputs
value/fan object
?an object


Definition


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