leaf>alist ( leaf -- alist )

Vocabulary

quadtrees.private

Inputs

leaf

an object

Outputs

alist

an object

Definition

USING: accessors arrays kernel ;

IN: quadtrees.private

: leaf>alist ( leaf -- alist )
    dup point>>
    [ [ point>> ] [ value>> ] bi 2array 1array ] [ drop { } ] if
    ;