From 69ec12c2dc194110175c5ed8aadfcb9e87754cfb Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 25 Mar 2011 12:20:51 -0700
Subject: [PATCH] io: improve signature of each-block and each-line.

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

diff --git a/core/io/io.factor b/core/io/io.factor
index ea37c13dd7..0821cfff78 100644
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -90,10 +90,10 @@ SYMBOL: error-stream
 
 PRIVATE>
 
-: each-stream-line ( stream quot -- )
+: each-stream-line ( stream quot: ( ... line -- ... ) -- )
     swap [ stream-readln ] curry each-morsel ; inline
 
-: each-line ( quot -- )
+: each-line ( quot: ( ... line -- ... ) -- )
     input-stream get swap each-stream-line ; inline
 
 : stream-lines ( stream -- seq )
@@ -111,10 +111,10 @@ PRIVATE>
 : contents ( -- seq )
     input-stream get stream-contents ; inline
 
-: each-stream-block ( stream quot: ( block -- ) -- )
+: each-stream-block ( stream quot: ( ... block -- ... ) -- )
     swap [ 8192 swap stream-read-partial ] curry each-morsel ; inline
 
-: each-block ( quot: ( block -- ) -- )
+: each-block ( quot: ( ... block -- ... ) -- )
     input-stream get swap each-stream-block ; inline
 
 : stream-copy ( in out -- )