From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 21 Aug 2022 16:17:00 +0000 (-0700)
Subject: memoize: fix prettyprint of multi argument memoize
X-Git-Tag: 0.99~1119
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=70f7896c76d30af93fab39f54624b5bd41e2ef86

memoize: fix prettyprint of multi argument memoize
---

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 ;