vocabs.cache: Reset the all-disk-vocabs-recursive memoized every time a vocab is...

Test case if "fuel.pprint" is not loaded:
all-disk-vocabs-recursive filter-vocabs [ vocab-name "fuel.pprint" = ] filter
"fuel.pprint" load
all-disk-vocabs-recursive filter-vocabs [ vocab-name "fuel.pprint" = ] filter
! vocab-link
! vocab

Fixes #2545

diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor
index 873f7a541bfafca54981b324acda06e49558a9f4..847b7fc9eb25bb8aa8d46d3d58ee4bb4d3e4a436 100644 (file)
--- a/basis/vocabs/cache/cache.factor
+++ b/basis/vocabs/cache/cache.factor
@@ -26,7 +26,9 @@ SINGLETON: cache-observer
 PRIVATE>
 
 M: cache-observer vocab-changed
-    drop dup forgot-vocab? [ reset-cache ] [ drop ] if ;
+    drop dup forgot-vocab?
+    [ reset-cache ]
+    [ drop \ all-disk-vocabs-recursive reset-memoized ] if ;
 
 [
     f changed-vocabs set-global