insert ( value point tree -- )

Vocabulary

quadtrees.private

Inputs

value	an object
point	an object
tree	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: quadtrees.private

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