update-tuples ( outdated-tuples -- )

Vocabulary

classes.tuple.private

Inputs

outdated-tuples

an object

Outputs

None

Definition

USING: assocs kernel kernel.private memory sequences ;

IN: classes.tuple.private

: update-tuples ( outdated-tuples -- )
    dup assoc-empty?
    [ drop ] [
        [ outdated-tuple? ] curry [ [ dup tuple? ] ] dip
        [ [ drop f ] if ] curry compose instances dup
        [ update-tuple ] map become
    ] if ;