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 ] [
        '[ dup tuple? [ _ outdated-tuple? ] [ drop f ] if ]
        instances dup [ update-tuple ] map become
    ] if ;