memoize: fix prettyprint of multi argument memoize
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 21 Aug 2022 16:17:00 +0000 (09:17 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 21 Aug 2022 16:17:00 +0000 (09:17 -0700)
core/memoize/memoize.factor

index 1d88cfca59bef2bcf2e92d12e61e64ec85d24fe2..58a03df465422f719ad734e86a0db9a9afe2c46b 100644 (file)
@@ -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 ;