tree= ( a b -- ? )

Vocabulary

quadtrees.private

Inputs

a	an object
b	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: quadtrees.private

: tree= ( a b -- ? )
    2dup [ leaf?>> ] same? [ (tree=) ] [ 2drop f ] if ;