collapse ( node {point,value} -- )

Vocabulary

quadtrees.private

Inputs

node	an object
{point,value}	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: quadtrees.private

: collapse ( node {point,value} -- )
    first2 [ >>point ] [ >>value ] bi* remove-subnodes drop ;