steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This reverts commit 48756c9fca.
db4
Joe Groff 2010-02-17 16:06:30 -08:00
parent 1250a0fcfd
commit 97654b67c1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/io/pathnames/pathnames.factor
View File

@ -76,8 +76,6 @@ ERROR: no-parent-directory path ;
[ f ] [ f ]
} cond ; } cond ;
PRIVATE>
: absolute-path? ( path -- ? ) : absolute-path? ( path -- ? )
{ {
{ [ dup empty? ] [ f ] } { [ dup empty? ] [ f ] }
@ -87,6 +85,8 @@ PRIVATE>
[ f ] [ f ]
} cond nip ; } cond nip ;
PRIVATE>
: append-path ( path1 path2 -- path ) : append-path ( path1 path2 -- path )
{ {
{ [ over empty? ] [ append-path-empty ] } { [ over empty? ] [ append-path-empty ] }