clean up <image>

2009-02-10 17:20:36 -06:00 · 2009-02-10 17:20:36 -06:00 · 46bfb5c8ea
parent 970953be1f
commit 46bfb5c8ea
1 changed files with 1 additions and 2 deletions
--- 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 ;