From 9e4b0c10aea2d6dad84218ae07ff41e64f8da1c2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Mar 2017 18:41:24 -0800
Subject: [PATCH] lru-cache: fix M\ lru-cache clone.

---
 extra/lru-cache/lru-cache.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/lru-cache/lru-cache.factor b/extra/lru-cache/lru-cache.factor
index 54e39c847f..e7d82e2da1 100644
--- 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 ;