From 442ef1e8f0bfd4b19a403ac82de7b54892683ded Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 2 Jun 2008 15:00:51 -0500
Subject: [PATCH] Add file-extension word
---
core/io/files/files.factor | 3 +++
1 file changed, 3 insertions(+)
diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 87e927304b..ff265e43b1 100755
--- 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 ;