prune-quadtree ( tree -- tree )
Quadtrees

Prev:	in-rect ( tree rect -- values )
Next:	descend ( pt node -- pt subnode )

Vocabulary
quadtrees

Inputs

tree	a quadtree

Outputs

tree	a quadtree

Word description
Removes empty nodes from tree.

Definition

USING: kernel quadtrees.private ;

IN: quadtrees

: prune-quadtree ( tree -- tree ) [ (prune) ] keep ;