Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / extra / memoize / memoize.factor

diff --git a/extra/memoize/memoize.factor b/extra/memoize/memoize.factor
index 7da2ee0f0da938f6e050947ce47a31a860ce08e0..1c0491a7ab0e62ada99e9f0bc223a913dfecb472 100755 (executable)
--- a/extra/memoize/memoize.factor
+++ b/extra/memoize/memoize.factor
@@ -58,3 +58,6 @@ M: memoized reset-word
 
 : reset-memoized ( word -- )
     "memoize" word-prop clear-assoc ;
+
+: invalidate-memoized ! ( inputs... word )
+    [ #in packer call ] [ "memoize" word-prop delete-at ] bi ;