diff --git a/basis/alien/data/data.factor b/basis/alien/data/data.factor index 7191dcc718..8066c73606 100644 --- a/basis/alien/data/data.factor +++ b/basis/alien/data/data.factor @@ -98,7 +98,6 @@ M:: memory-stream stream-read-unsafe ( n buf stream -- count ) buf src n memcpy n src stream alien<< n ; inline -M: memory-stream stream-read-partial-unsafe stream-read-unsafe ; inline M: value-type c-type-rep drop int-rep ; diff --git a/basis/io/streams/string/string.factor b/basis/io/streams/string/string.factor index 909fed2092..442a799ff4 100644 --- a/basis/io/streams/string/string.factor +++ b/basis/io/streams/string/string.factor @@ -10,7 +10,6 @@ IN: io.streams.string TUPLE: string-reader { underlying string read-only } { i array-capacity } ; M: string-reader stream-element-type drop +character+ ; -M: string-reader stream-read-partial-unsafe sequence-read-unsafe ; M: string-reader stream-read-unsafe sequence-read-unsafe ; M: string-reader stream-read1 sequence-read1 ; M: string-reader stream-read-until sequence-read-until ; diff --git a/core/io/encodings/encodings.factor b/core/io/encodings/encodings.factor index 6750ad5c42..7de56589c8 100644 --- a/core/io/encodings/encodings.factor +++ b/core/io/encodings/encodings.factor @@ -99,8 +99,6 @@ M: decoder stream-read-unsafe ( n buf decoder -- count ) ] [ 2drop 2drop 0 ] if* ] if ; inline -M: decoder stream-read-partial-unsafe stream-read-unsafe ; inline - : line-ends/eof ( stream str -- str ) f like swap cr- ; inline : line-ends\r ( stream str -- str ) swap cr+ ; inline diff --git a/core/io/streams/byte-array/byte-array.factor b/core/io/streams/byte-array/byte-array.factor index 89f838a675..3c880a8e38 100644 --- a/core/io/streams/byte-array/byte-array.factor +++ b/core/io/streams/byte-array/byte-array.factor @@ -18,7 +18,6 @@ TUPLE: byte-reader { underlying byte-array read-only } { i array-capacity } ; M: byte-reader stream-element-type drop +byte+ ; -M: byte-reader stream-read-partial-unsafe sequence-read-unsafe ; M: byte-reader stream-read-unsafe sequence-read-unsafe ; M: byte-reader stream-read1 sequence-read1 ; M: byte-reader stream-read-until sequence-read-until ; diff --git a/core/io/streams/c/c.factor b/core/io/streams/c/c.factor index ac02132bf5..a78e21d2d9 100644 --- a/core/io/streams/c/c.factor +++ b/core/io/streams/c/c.factor @@ -47,8 +47,6 @@ M: c-reader stream-element-type drop +byte+ ; M: c-reader stream-read-unsafe dup check-disposed handle>> fread-unsafe ; -M: c-reader stream-read-partial-unsafe stream-read-unsafe ; - M: c-reader stream-read1 dup check-disposed handle>> fgetc ; : read-until-loop ( stream delim -- ch ) diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor index 2137a88383..ab0085c6d2 100644 --- a/extra/io/streams/peek/peek.factor +++ b/extra/io/streams/peek/peek.factor @@ -52,8 +52,6 @@ M:: peek-stream stream-read-unsafe ( n buf stream -- count ) ] if ] if ; -M: peek-stream stream-read-partial-unsafe stream-read-unsafe ; - : peek-stream-read-until ( stream seps buf -- stream seps buf sep/f ) 3dup [ [ stream-read1 dup ] dip member-eq? ] dip swap [ drop ] [ over [ push peek-stream-read-until ] [ drop ] if ] if ;