increment-counter-value ( -- n )

Vocabulary

webapps.mason.backend

Inputs

None

Outputs

n

an object

Definition

USING: accessors db.tuples kernel math ;

IN: webapps.mason.backend

: increment-counter-value ( -- n )
    counter-tuple [ 0 or 1 + dup ] change-value update-tuple ;