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

images: minor cleanup.

db4
John Benediktsson 2014-03-14 08:26:05 -07:00
parent aa2f21507d
commit ab76deaf25
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/images/loader/loader.factor
View File

@ -36,7 +36,7 @@ GENERIC: stream>image* ( stream class -- image )
over types get key? [ 2drop ] [ register-image-class ] if ; over types get key? [ 2drop ] [ register-image-class ] if ;
: load-image ( path -- image ) : load-image ( path -- image )
[ binary <file-reader> ] [ image-class ] bi load-image* ; dup image-class load-image* ;
M: object load-image* stream>image ; M: object load-image* stream>image ;

4
extra/images/bitmap/bitmap-tests.factor
View File

@ -1,8 +1,8 @@
USING: images.bitmap images.testing kernel ; USING: images.bitmap images.testing kernel ;
IN: images.bitmap.tests IN: images.bitmap.tests
! "vocab:images/testing/bmp/1bit.bmp" decode-test ! "vocab:images/testing/bmp/1bit.bmp" bmp-image decode-test
! "vocab:images/testing/bmp/rgb_4bit.bmp" decode-test ! "vocab:images/testing/bmp/rgb_4bit.bmp" bmp-image decode-test
"vocab:images/testing/bmp/rgb_8bit.bmp" bmp-image "vocab:images/testing/bmp/rgb_8bit.bmp" bmp-image
[ decode-test ] [ encode-test ] 2bi [ decode-test ] [ encode-test ] 2bi