Add file-extension word
parent
bf40d2b8c7
commit
442ef1e8f0
|
@ -147,6 +147,9 @@ PRIVATE>
|
|||
] if
|
||||
] unless ;
|
||||
|
||||
: file-extension ( filename -- extension )
|
||||
"." last-split1 nip ;
|
||||
|
||||
! File info
|
||||
TUPLE: file-info type size permissions modified ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue