(?leaf) ( quadrant -- pair/f )

Vocabulary

quadtrees.private

Inputs

quadrant

an object

Outputs

pair/f

an object

Definition

USING: accessors arrays kernel ;

IN: quadtrees.private

: (?leaf) ( quadrant -- pair/f )
    dup point>> [ swap value>> 2array ] [ drop f ] if* ;