io: remove each-block* because it's not useful

diff --git a/core/io/io.factor b/core/io/io.factor
index 521d4b573d2a2bb8e74c5434eadff390459feb1d..93f8da0550e2d015bb1afdc813e5e1c5ca84bff1 100644 (file)
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -110,16 +110,9 @@ PRIVATE>
 : each-stream-block ( ... stream quot: ( ... block -- ... ) -- ... )
     swap [ 65536 swap stream-read-partial ] curry each-morsel ; inline
 
-: each-stream-block* ( ... buffer stream quot: ( ... n buffer -- ... ) -- ... )
-    -rot [ [ length ] keep ] dip
-    [ [ stream-read-partial-unsafe ] curry keep ] 3curry each-morsel ; inline
-
 : each-block ( ... quot: ( ... block -- ... ) -- ... )
     input-stream get swap each-stream-block ; inline
 
-: each-block* ( ... buffer quot: ( ... n ptr -- ... ) -- ... )
-    input-stream get swap each-stream-block* ; inline
-
 : stream-contents ( stream -- seq )
     [
         [ [ ] collector [ each-stream-block ] dip { } like ]