(inc-current-count) ( max ? -- max' )

Vocabulary

rosetta-code.text-processing.max-licenses.private

Inputs

max	an object
?	an object

Outputs

max'

an object

Definition

USING: accessors kernel math ;

IN: rosetta-code.text-processing.max-licenses.private

: (inc-current-count) ( max ? -- max' )
    [ [ 1 + ] change-current-count ]
    [ [ 1 - ] change-current-count ] if update-max-count ;
    inline