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 ]
} 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 ] }