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 20ec7078c0f0137ddbca5a61ae68672156788c13..58a03df465422f719ad734e86a0db9a9afe2c46b 100644 (file)
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -1,8 +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
-effects.parser fry hashtables.identity 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
@@ -71,7 +70,9 @@ PRIVATE>
 
 PREDICATE: memoized < word "memoize" word-prop >boolean ;
 
-M: memoized definer drop \ MEMO: \ ; ;
+M: memoized definer
+    def>> 3 from-tail swap ?nth hashtable?
+    \ MEMO: \ IDENTITY-MEMO: ? \ ; ;
 
 M: memoized definition "memo-quot" word-prop ;