From: Dave Carlton <davec@polymicro.net>
Date: Wed, 14 Sep 2022 14:52:24 +0000 (-0500)
Subject: Add absolute-path to normalize any new root path. E.G. permit ~user
X-Git-Tag: 0.99~1088
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=98900490c6e61f31e1500bbd92aedb0a96a4509e

Add absolute-path to normalize any new root path. E.G. permit ~user
---

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 54ad712302..b9cea071a3 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -22,7 +22,7 @@ STARTUP-HOOK: [
 ]
 
 : add-vocab-root ( root -- )
-    trim-tail-separators dup vocab-roots get ?adjoin
+    absolute-path trim-tail-separators dup vocab-roots get ?adjoin
     [ add-vocab-root-hook get-global call( root -- ) ] [ drop ] if ;
 
 SYMBOL: root-cache