diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor index e8e1e5f177..cca8d563d8 100644 --- a/basis/vocabs/cache/cache.factor +++ b/basis/vocabs/cache/cache.factor @@ -9,7 +9,7 @@ IN: vocabs.cache vocab-name [ root-cache get-global delete-at ] [ - \ vocab-file-contents "memoize" word-prop swap + \ vocab-file-contents "memoize" word-prop '[ drop first vocab-name _ = not ] assoc-filter! drop ] bi \ all-vocabs-recursive reset-memoized