memoize: fix memoize-quot for zero input effects.

2019-09-29 18:38:41 -07:00 · 2019-09-29 18:38:41 -07:00 · 0dc71ab053
parent 9a8b1f8d8e
commit 0dc71ab053
1 changed files with 2 additions and 1 deletions
--- a/basis/memoize/memoize.factor
+++ b/basis/memoize/memoize.factor
@ -85,7 +85,8 @@ M: memoized reset-word
    bi ;

 : memoize-quot ( quot effect -- memo-quot )
-    [ H{ } clone ] 2dip make-memoizer ;
+    dup in>> length zero? [ f 1array ] [ H{ } clone ] if
+    -rot make-memoizer ;

 : reset-memoized ( word -- )
    "memoize" word-prop dup sequence?