quadtree>alist ( tree -- assoc )

Vocabulary

quadtrees.private

Inputs

tree

an object

Outputs

assoc

an object

Definition

USING: accessors kernel ;

IN: quadtrees.private

: quadtree>alist ( tree -- assoc )
    dup leaf?>> [ leaf>alist ] [ node>alist ] if ;