From 49961e643eb73d6e853f5e55bd20bb09ba181002 Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Wed, 14 Dec 2016 16:40:49 +0300 Subject: [PATCH] vocabs.loader: stop add-vocab-root spawning extra monitoring threads This fixes issue #1758. --- core/vocabs/loader/loader.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor index a92ebdd87f..f77c32d57e 100644 --- a/core/vocabs/loader/loader.factor +++ b/core/vocabs/loader/loader.factor @@ -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 -- 2.34.1