steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

memoize: fix invalidate-memoized for 0 args.

John Benediktsson 2012-08-13 12:04:56 -07:00
parent eea3ccbcfd
commit eb6b3829ab
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/memoize/memoize.factor
View File

@ -91,6 +91,11 @@ M: memoized reset-word
[ f swap set-first ] [ clear-assoc ] if ; [ f swap set-first ] [ clear-assoc ] if ;
: invalidate-memoized ( inputs... word -- ) : 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 \ invalidate-memoized t "no-compile" set-word-prop