memoize: fix prettyprint of multi argument memoize

[factor.git] / core / memoize / memoize.factor

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index 1d88cfca59bef2bcf2e92d12e61e64ec85d24fe2..58a03df465422f719ad734e86a0db9a9afe2c46b 100644 (file)
--- 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
 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 ;
 
 
 M: memoized definition "memo-quot" word-prop ;