vocabs.cache: reset-cache only when vocabs forgotten, not created.

2016-11-09 16:50:14 -08:00 · 2016-11-09 16:50:14 -08:00 · 1c9ffc7dbd
parent e91a674f95
commit 1c9ffc7dbd
1 changed files with 9 additions and 1 deletions
--- a/basis/vocabs/cache/cache.factor
+++ b/basis/vocabs/cache/cache.factor
@ -18,7 +18,15 @@ IN: vocabs.cache

 SINGLETON: cache-observer

-M: cache-observer vocab-changed drop reset-cache ;
+<PRIVATE
+
+: forgot-vocab? ( vocab -- ? )
+    vocab-name dictionary get key? not ;
+
+PRIVATE>
+
+M: cache-observer vocab-changed
+    drop dup forgot-vocab? [ reset-cache ] [ drop ] if ;

 [
    f changed-vocabs set-global