646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
14 lines
665 B
Diff
14 lines
665 B
Diff
diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
|
|
index a172fe4..40858bc 100644
|
|
--- a/core/io/pathnames/pathnames.factor
|
|
+++ b/core/io/pathnames/pathnames.factor
|
|
@@ -166,6 +166,8 @@ GENERIC: absolute-path ( path -- path' )
|
|
|
|
M: string absolute-path
|
|
{
|
|
+ { [ "resource:work" ?head ]
|
|
+ [ trim-head-separators "/var/lib/factor" prepend-path absolute-path ] }
|
|
{ [ "resource:" ?head ] [ trim-head-separators resource-path absolute-path ] }
|
|
{ [ "vocab:" ?head ] [ trim-head-separators vocab-path absolute-path ] }
|
|
{ [ "~" ?head ] [ trim-head-separators home prepend-path absolute-path ] }
|