vocabs.loader: stop add-vocab-root spawning extra monitoring threads
This fixes issue #1758.char-rename
parent
b3a9293ba1
commit
49961e643e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue