inc-count ( tree -- )

Vocabulary

trees.private

Inputs

tree

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: trees.private

: inc-count ( tree -- ) [ 1 + ] change-count drop ;