io.pathnames: adding home-path and >pathname

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index a8a473dc0e66294a1abffb4d279eb85db51fbb8b..6bf366797faea6aea3e116ad5d1e5b9a5fba9042 100644 (file)
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -147,6 +147,8 @@ HOOK: home io-backend ( -- dir )
 
 M: object home "" resource-path ;
 
+: home-path ( path -- newpath ) home prepend-path ;
+
 GENERIC: vocab-path ( path -- newpath )
 
 GENERIC: absolute-path ( path -- path' )
@@ -226,3 +228,6 @@ C: <pathname> pathname
 M: pathname absolute-path string>> absolute-path ;
 
 M: pathname <=> [ string>> ] compare ;
+
+: >pathname ( obj -- pathname )
+    dup pathname? [ <pathname> ] unless ;