at master 665 B view raw
1diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor 2index a172fe4..40858bc 100644 3--- a/core/io/pathnames/pathnames.factor 4+++ b/core/io/pathnames/pathnames.factor 5@@ -166,6 +166,8 @@ GENERIC: absolute-path ( path -- path' ) 6 7 M: string absolute-path 8 { 9+ { [ "resource:work" ?head ] 10+ [ trim-head-separators "/var/lib/factor" prepend-path absolute-path ] } 11 { [ "resource:" ?head ] [ trim-head-separators resource-path absolute-path ] } 12 { [ "vocab:" ?head ] [ trim-head-separators vocab-path absolute-path ] } 13 { [ "~" ?head ] [ trim-head-separators home prepend-path absolute-path ] }