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

View File

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