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
|
] "vocabs.loader" add-startup-hook
|
||||||
|
|
||||||
: add-vocab-root ( root -- )
|
: add-vocab-root ( root -- )
|
||||||
trim-tail-separators
|
trim-tail-separators dup vocab-roots get ?adjoin
|
||||||
[ vocab-roots get adjoin ]
|
[ add-vocab-root-hook get-global call( root -- ) ] [ drop ] if ;
|
||||||
[ add-vocab-root-hook get-global call( root -- ) ] bi ;
|
|
||||||
|
|
||||||
SYMBOL: root-cache
|
SYMBOL: root-cache
|
||||||
root-cache [ H{ } clone ] initialize
|
root-cache [ H{ } clone ] initialize
|
||||||
|
|
Loading…
Reference in New Issue