pop-tree-extremity ( tree node/f -- node/f )

Vocabulary

trees.private

Inputs

tree	an object
node/f	an object

Outputs

node/f

an object

Definition

USING: accessors assocs kernel ;

IN: trees.private

: pop-tree-extremity ( tree node/f -- node/f )
    dup [ [ key>> swap delete-at ] keep node>entry ] [ nip ] if
    ;