(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 -- ? ) dup leaf?>> [ leaf= ] [ node= ] if ;