diff --git a/basis/images/cocoa/cocoa.factor b/basis/images/cocoa/cocoa.factor index 166a5f8196..115315aa18 100644 --- a/basis/images/cocoa/cocoa.factor +++ b/basis/images/cocoa/cocoa.factor @@ -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 ; diff --git a/basis/images/gdiplus/gdiplus.factor b/basis/images/gdiplus/gdiplus.factor index 0e9549f892..97bc52375f 100644 --- a/basis/images/gdiplus/gdiplus.factor +++ b/basis/images/gdiplus/gdiplus.factor @@ -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