vocabs.loader: stop add-vocab-root spawning extra monitoring threads

This fixes issue #1758.
char-rename
Alexander Iljin 2016-12-14 16:40:49 +03:00 committed by John Benediktsson
parent b3a9293ba1
commit 49961e643e
1 changed files with 2 additions and 3 deletions

View File

@ -21,9 +21,8 @@ SYMBOL: add-vocab-root-hook
] "vocabs.loader" add-startup-hook
: add-vocab-root ( root -- )
trim-tail-separators
[ vocab-roots get adjoin ]
[ add-vocab-root-hook get-global call( root -- ) ] bi ;
trim-tail-separators dup vocab-roots get ?adjoin
[ add-vocab-root-hook get-global call( root -- ) ] [ drop ] if ;
SYMBOL: root-cache
root-cache [ H{ } clone ] initialize