update-max-count ( max -- max' )

Vocabulary

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

Inputs

max

an object

Outputs

max'

an object

Definition

USING: accessors kernel math ;

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

: update-max-count ( max -- max' )
    dup [ current-count>> ] [ max-count>> ] bi >
    [ dup current-count>> >>max-count V{ } clone >>times ] when
    ;