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
core/io/files

View File

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