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

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

char-rename
John Benediktsson 2016-11-09 16:50:14 -08:00
parent e91a674f95
commit 1c9ffc7dbd
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/vocabs/cache/cache.factor vendored
View File

@ -18,7 +18,15 @@ IN: vocabs.cache
SINGLETON: cache-observer 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 f changed-vocabs set-global