memoize: fix invalidate-memoized for 0 args.

db4
John Benediktsson 2012-08-13 12:04:56 -07:00
parent 231b791da1
commit 0d9c7df8e2
1 changed files with 6 additions and 1 deletions

View File

@ -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