images.cocoa, images.gdiplus: remove hacks around old limited-stream throwing behavior

db4
Joe Groff 2010-07-11 08:41:55 -07:00
parent 3d9c1f9cd5
commit abf0aed985
2 changed files with 2 additions and 5 deletions

View File

@ -1,8 +1,7 @@
! (c)2010 Joe Groff bsd license
USING: accessors alien.data cocoa cocoa.classes cocoa.messages
combinators core-foundation.data core-graphics.types fry images
images.loader io io.streams.limited kernel literals math
sequences ;
images.loader io kernel literals math sequences ;
IN: images.cocoa
SINGLETON: ns-image
@ -64,5 +63,4 @@ PRIVATE>
M: ns-image stream>image
drop
dup limited-stream? [ stream-eofs >>mode ] when
[ load-image-rep ] with-input-stream image-rep>image ;

View File

@ -55,8 +55,7 @@ SINGLETON: gdi+-image
PRIVATE>
M: gdi+-image stream>image
drop
dup limited-stream? [ stream-eofs >>mode ] when [
drop [
start-gdi+ &stop-gdi+ drop
stream>gdi+-bitmap
gdi+-bitmap>data