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

io.pathnames: make absolute-path? public

db4
Joe Groff 2010-02-16 19:01:44 -08:00
parent 4a182cfbad
commit f59f28d788
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,6 +76,8 @@ ERROR: no-parent-directory path ;
[ f ] [ f ]
} cond ; } cond ;
PRIVATE>
: absolute-path? ( path -- ? ) : absolute-path? ( path -- ? )
{ {
{ [ dup empty? ] [ f ] } { [ dup empty? ] [ f ] }
@ -85,8 +87,6 @@ ERROR: no-parent-directory path ;
[ 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 ] }