images: fix load errors

db4
Slava Pestov 2009-02-12 02:41:47 -06:00
parent 2220515947
commit 7361bb90fa
2 changed files with 2 additions and 1 deletions

View File

@ -1,5 +1,6 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors grouping sequences combinators ;
IN: images
SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ;

View File

@ -276,7 +276,7 @@ ERROR: unknown-component-order ifd ;
} cleave tiff-image new-image ;
: tiff>image ( image -- image )
ifds>> [ >image ] map first ;
ifds>> [ ifd>image ] map first ;
: load-tiff ( path -- parsed-tiff )
binary [