insert ( value point tree -- ) (original) (raw)

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 ;