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

io.files: 'directory?' uses file-info

db4
Eduardo Cavazos 2008-03-14 12:58:10 -06:00
parent 080628af9f
commit 21d52749a2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -94,7 +94,9 @@ SYMBOL: +unknown+
: exists? ( path -- ? ) file-modified >boolean ; : exists? ( path -- ? ) file-modified >boolean ;
: directory? ( path -- ? ) stat 3drop ; ! : directory? ( path -- ? ) stat 3drop ;
: directory? ( path -- ? ) file-info file-info-type +directory+ = ;
! Current working directory ! Current working directory
HOOK: cd io-backend ( path -- ) HOOK: cd io-backend ( path -- )