each-quadrant ( node quot -- )
Quadtrees

Prev:	descend ( pt node -- pt subnode )
Next:	map-quadrant ( node quot: ( child-node -- x ) -- array )

Vocabulary
quadtrees

Inputs

node	a quadtree
quot	a quotation

Outputs
None

Word description
Calls quot with each subnode of node on the top of the stack in turn.

Definition

USING: accessors combinators kernel ;

IN: quadtrees

: each-quadrant ( node quot -- )
    {
        [ [ ll>> ] [ call ] bi* ]
        [ [ lr>> ] [ call ] bi* ]
        [ [ ul>> ] [ call ] bi* ]
        [ [ ur>> ] [ call ] bi* ]
    } 2cleave ; inline