io.pathnames: make absolute-path? public

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 5a9c647973569f1f1de01300fcb07e6df14d81e3..2be66ef1861068a94f1fa59fc05ae25a847288b7 100644 (file)
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -76,6 +76,8 @@ ERROR: no-parent-directory path ;
         [ f ]
     } cond ;
 
+PRIVATE>
+
 : absolute-path? ( path -- ? )
     {
         { [ dup empty? ] [ f ] }
@@ -85,8 +87,6 @@ ERROR: no-parent-directory path ;
         [ f ]
     } cond nip ;
 
-PRIVATE>
-
 : append-path ( path1 path2 -- path )
     {
         { [ over empty? ] [ append-path-empty ] }