steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up <image>

db4
Doug Coleman 2009-02-10 17:20:36 -06:00
parent 970953be1f
commit 46bfb5c8ea
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/images/images.factor
View File

@ -6,8 +6,7 @@ io.pathnames ;
IN: images IN: images
: <image> ( path -- image ) : <image> ( path -- image )
normalize-path dup "." split1-last nip >lower dup file-extension >lower {
{
{ "bmp" [ bitmap-image load-image ] } { "bmp" [ bitmap-image load-image ] }
{ "tiff" [ tiff-image load-image ] } { "tiff" [ tiff-image load-image ] }
} case ; } case ;