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

Add file-extension word

db4
Slava Pestov 2008-06-02 15:00:51 -05:00
parent bf40d2b8c7
commit 442ef1e8f0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,6 +147,9 @@ PRIVATE>
] if ] if
] unless ; ] unless ;
: file-extension ( filename -- extension )
"." last-split1 nip ;
! File info ! File info
TUPLE: file-info type size permissions modified ; TUPLE: file-info type size permissions modified ;