From 46bfb5c8eab23c26fd5b2b98c62db491b4253354 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 10 Feb 2009 17:20:36 -0600
Subject: [PATCH] clean up <image>
---
extra/images/images.factor | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/extra/images/images.factor b/extra/images/images.factor
index eb4fc63fee..4b4673333f 100644
--- a/extra/images/images.factor
+++ b/extra/images/images.factor
@@ -6,8 +6,7 @@ io.pathnames ;
IN: images
: <image> ( path -- image )
- normalize-path dup "." split1-last nip >lower
- {
+ dup file-extension >lower {
{ "bmp" [ bitmap-image load-image ] }
{ "tiff" [ tiff-image load-image ] }
} case ;