leaf-replaceable? ( pt leaf -- ? )


Vocabulary
quadtrees.private

Inputs
ptan object
leafan object


Outputs
?an object


Definition
USING: accessors combinators.short-circuit kernel ;

IN: quadtrees.private

: leaf-replaceable? ( pt leaf -- ? )
point>> { [ nip not ] [ = ] } 2|| ;