Revert "io.pathnames: make absolute-path? public"
This reverts commit 48756c9fca.
parent
a968c15b41
commit
a48dd77d61
|
|
@ -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 ] }
|
||||
|
|
|
|||
Loading…
Reference in New Issue