From abf0aed9853134ec649cd0a903a2c5bb3ac75d57 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sun, 11 Jul 2010 08:41:55 -0700
Subject: [PATCH] images.cocoa, images.gdiplus: remove hacks around old
limited-stream throwing behavior
---
basis/images/cocoa/cocoa.factor | 4 +---
basis/images/gdiplus/gdiplus.factor | 3 +--
2 files changed, 2 insertions(+), 5 deletions(-)
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