memoize: fix invalidate-memoized for 0 args.

2012-08-13 12:04:56 -07:00 · 2012-08-13 12:04:56 -07:00 · 0d9c7df8e2
parent 231b791da1
commit 0d9c7df8e2
1 changed files with 6 additions and 1 deletions
--- a/basis/memoize/memoize.factor
+++ b/basis/memoize/memoize.factor
@ -91,6 +91,11 @@ M: memoized reset-word
    [ f swap set-first ] [ clear-assoc ] if ;

 : invalidate-memoized ( inputs... word -- )
-    [ stack-effect in>> packer call ] [ "memoize" word-prop delete-at ] bi ;
+    [ stack-effect in>> packer call ]
+    [
+        "memoize" word-prop dup sequence?
+        [ f swap set-first ] [ delete-at ] if
+    ]
+    bi ;

 \ invalidate-memoized t "no-compile" set-word-prop