erase ( point tree -- )

Vocabulary

quadtrees.private

Inputs

point	an object
tree	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: quadtrees.private

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