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 [
        [ dispose-to f ] curry [
            [ [ dup age>> 1 + [ >>age ] keep ] ] dip
            [ < [ drop t ] ] curry compose
        ] dip [ if ] curry compose filter-values >>assoc drop
    ] keep [ last rethrow ] unless-empty ;