Add file-extension word

2008-06-02 15:00:51 -05:00 · 2008-06-02 15:00:51 -05:00 · 442ef1e8f0
parent bf40d2b8c7
commit 442ef1e8f0
1 changed files with 3 additions and 0 deletions
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@ -147,6 +147,9 @@ PRIVATE>
        ] if
    ] unless ;

+: file-extension ( filename -- extension )
+    "." last-split1 nip ;
+
 ! File info
 TUPLE: file-info type size permissions modified ;