From cd0eb76806fd520289042f78bce200e208e89439 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Fri, 14 Oct 2011 23:23:22 -0700
Subject: [PATCH] io: remove higher-order stack effects More stack checker
 breakage

---
 core/io/io.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/io/io.factor b/core/io/io.factor
index 36e41d0001..70de7fa266 100644
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -95,11 +95,11 @@ SYMBOL: error-stream
 : (new-sequence-for-stream) ( n stream -- seq )
     stream-exemplar new-sequence ; inline
 
-: (read-into-new) ( n stream quot: ( n buf stream -- count ) -- seq/f )
+: (read-into-new) ( n stream quot -- seq/f )
     [ 2dup (new-sequence-for-stream) swap ] dip curry keep
     over 0 = [ 2drop f ] [ resize ] if ; inline
 
-: (read-into) ( buf stream quot: ( n buf stream -- count ) -- buf-slice/f )
+: (read-into) ( buf stream quot -- buf-slice/f )
     [ dup length over ] 2dip call
     [ drop f ] [ head-slice ] if-zero ; inline