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


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

Inputs
maxan 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