leaf-erase ( point leaf -- )

Vocabulary

quadtrees.private

Inputs

point	an object
leaf	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: quadtrees.private

:: leaf-erase ( point leaf -- )
    point leaf point>> = [ leaf f >>point f >>value drop ] when
    ;