purge-cache ( cache -- )

Vocabulary

cache

Inputs

cache

an object

Outputs

None

Definition

USING: accessors assocs continuations destructors kernel math
sequences ;

IN: cache

: purge-cache ( cache -- )
    dup [ assoc>> ] [ max-age>> ] bi V{ } clone [
        '[
            dup age>> 1 + [ >>age ] keep _ <
            [ drop t ] [ _ dispose-to f ] if
        ] filter-values >>assoc drop
    ] keep [ last rethrow ] unless-empty ;