update-time ( max time -- max' )

Vocabulary

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

Inputs

max	an object
time	an object

Outputs

max'

an object

Definition

USING: accessors kernel sequences ;

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

: update-time ( max time -- max' )
    [ current-max-equal? ] dip swap
    [ [ suffix ] curry change-times ] [ drop ] if ;