com-decrement ( counter -- )


Vocabulary
ui-demo

Inputs
counteran object


Outputs
None

Definition
USING: accessors math models ;

IN: ui-demo

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