Revert "io.pathnames: make absolute-path? public"

This reverts commit 48756c9fca.
2010-02-17 16:06:30 -08:00 · 2010-02-17 16:06:30 -08:00 · 97654b67c1
parent 1250a0fcfd
commit 97654b67c1
1 changed files with 2 additions and 2 deletions
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@ -76,8 +76,6 @@ ERROR: no-parent-directory path ;
        [ f ]
    } cond ;

-PRIVATE>
-
 : absolute-path? ( path -- ? )
    {
        { [ dup empty? ] [ f ] }
@ -87,6 +85,8 @@ PRIVATE>
        [ f ]
    } cond nip ;

+PRIVATE>
+
 : append-path ( path1 path2 -- path )
    {
        { [ over empty? ] [ append-path-empty ] }