leaf-insert ( value point leaf -- )

Vocabulary

quadtrees.private

Inputs

value	an object
point	an object
leaf	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: quadtrees.private

: leaf-insert ( value point leaf -- )
    2dup leaf-replaceable?
    [ [ point<< ] [ value<< ] bi ] [ split-leaf ] if ;