cache-assoc

Vocabulary

cache

Definition

USING: destructors ;

IN: cache

TUPLE: cache-assoc < disposable assoc max-age ;

Methods

USING: accessors assocs cache ;

M: cache-assoc >alist assoc>> [ value>> ] { } assoc-map-as ;


USING: accessors assocs cache ;

M: cache-assoc assoc-size assoc>> assoc-size ;


USING: accessors assocs cache kernel ;

M: cache-assoc at*
    assoc>> at* [ [ 0 >>age value>> ] ?call ] dip ;


USING: accessors assocs cache destructors kernel ;

M: cache-assoc clear-assoc
    assoc>> [ values dispose-each ] [ clear-assoc ] bi ;


USING: assocs cache destructors ;

M: cache-assoc dispose* clear-assoc ;


USING: accessors assocs cache cache.private destructors kernel ;

M: cache-assoc set-at
    check-disposed [ <cache-entry> ] 2dip assoc>> set-at ;