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

diff --git a/extra/lru-cache/lru-cache.factor b/extra/lru-cache/lru-cache.factor
index 54e39c847f501538f7646aab5b8a7599f870d149..e7d82e2da1343d4ff3fb0ef0a12ec1e86995f792 100644 (file)
--- 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 ;