<fifo-cache> ( max-size exemplar -- assoc )

Vocabulary

lru-cache

Inputs

max-size	an object
exemplar	an object

Outputs

assoc

an object

Definition

USING: assocs dlists kernel ;

IN: lru-cache

: <fifo-cache> ( max-size exemplar -- assoc )
    dupd new-assoc <dlist> rot fifo-cache boa ;