X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fmemoize%2Fmemoize.factor;h=58a03df465422f719ad734e86a0db9a9afe2c46b;hp=1d88cfca59bef2bcf2e92d12e61e64ec85d24fe2;hb=70f7896c76d30af93fab39f54624b5bd41e2ef86;hpb=cdf7cce0463bea3ea406c7ef5bcac72991413326

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index 1d88cfca59..58a03df465 100644
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -71,7 +71,8 @@ PRIVATE>
 PREDICATE: memoized < word "memoize" word-prop >boolean ;
 
 M: memoized definer
-    def>> ?first hashtable? \ MEMO: \ IDENTITY-MEMO: ? \ ; ;
+    def>> 3 from-tail swap ?nth hashtable?
+    \ MEMO: \ IDENTITY-MEMO: ? \ ; ;
 
 M: memoized definition "memo-quot" word-prop ;