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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/images/cocoa/cocoa.factor
View File

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

3
basis/images/gdiplus/gdiplus.factor
View File

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