current-max-equal? ( max -- max ? )

Vocabulary

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

Inputs

max

an object

Outputs

max	an object
?	an object

Definition

USING: accessors kernel ;

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

: current-max-equal? ( max -- max ? )
    dup [ current-count>> ] [ max-count>> ] bi = ;