memoize: fix memoization of no-arg words

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

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index d5a09e3ab8c9479d8d97578d50d3e90f229965a1..96e5952ca9c74661ed22253852b47695e6ff996d 100644 (file)
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -23,7 +23,7 @@ IN: memoize
 
 : packer ( seq -- quot )
     length dup 4 <=
-    [ { [ f ] [ ] [ 2array ] [ 3array ] [ 4array ] } nth ]
+    [ { [ t ] [ ] [ 2array ] [ 3array ] [ 4array ] } nth ]
     [ { } [nsequence] ] if ;
 
 : unpacker ( seq -- quot )