com-increment ( counter -- )

Vocabulary

ui-demo

Inputs

counter

an object

Outputs

None

Definition

USING: accessors math models ;

IN: ui-demo

: com-increment ( counter -- ) count>> [ 1 + ] change-model ;