     binary stream-throws <limited-file-reader> ;
 
 PRIVATE>
+
+! Image Decode
 
 GENERIC# load-image* 1 ( obj class -- image )
 

M: string load-image* [ open-image-file ] dip stream>image ;

M: pathname load-image* [ open-image-file ] dip stream>image ;

! Copyright (C) 2009 Doug Coleman, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs byte-arrays combinators images
io.encodings.binary io.files io.pathnames io.streams.byte-array
io.streams.limited kernel namespaces sequences splitting
strings unicode.case ;
IN: images.loader

ERROR: unknown-image-extension extension ;
