lru-cache: fix M\ lru-cache clone.

2017-03-02 18:41:24 -08:00 · 2017-03-02 18:41:24 -08:00 · 9e4b0c10ae
parent faf0158ad0
commit 9e4b0c10ae
1 changed files with 4 additions and 0 deletions
--- a/extra/lru-cache/lru-cache.factor
+++ b/extra/lru-cache/lru-cache.factor
@ -31,3 +31,7 @@ M: lru-cache set-at
            [ dlist>> ] tri (delete-at)
        ] [ drop ] if
    ] [ drop ] if* ;
+
+M: lru-cache clone
+    [ assoc>> clone ] [ dlist>> clone ] [ max-size>> ] tri
+    lru-cache boa ;