From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 8 Jan 2022 17:04:14 +0000 (-0800)
Subject: memoize: fix pprint of IDENTITY-MEMO: words
X-Git-Tag: 0.99~1942
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=449c6c19017daf7ca7720e59de4635101d0c083f

memoize: fix pprint of IDENTITY-MEMO: words
---

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index 0a0b4c85bb..1d88cfca59 100644
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007, 2010 Slava Pestov, Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs definitions effects kernel
-kernel.private math sequences sequences.private words ;
+USING: accessors arrays assocs definitions effects hashtables
+kernel kernel.private math sequences sequences.private words ;
 IN: memoize
 
 <PRIVATE
@@ -70,7 +70,8 @@ PRIVATE>
 
 PREDICATE: memoized < word "memoize" word-prop >boolean ;
 
-M: memoized definer drop \ MEMO: \ ; ;
+M: memoized definer
+    def>> ?first hashtable? \ MEMO: \ IDENTITY-MEMO: ? \ ; ;
 
 M: memoized definition "memo-quot" word-prop ;