From f243b31dddb8e7060932b4a0ddf71702ecc3b96e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 25 Feb 2014 07:56:28 -0800 Subject: [PATCH] io.streams.sequence: rename (stream-seek) to sequence-seek. --- basis/io/streams/string/string.factor | 2 +- core/io/streams/byte-array/byte-array.factor | 2 +- core/io/streams/sequence/sequence.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/io/streams/string/string.factor b/basis/io/streams/string/string.factor index bd8a483293..fbd9fab606 100644 --- a/basis/io/streams/string/string.factor +++ b/basis/io/streams/string/string.factor @@ -25,7 +25,7 @@ M: string-reader stream-readln ] [ drop f ] if ; M: string-reader stream-tell i>> ; -M: string-reader stream-seek (stream-seek) ; +M: string-reader stream-seek sequence-seek ; M: string-reader stream-seekable? drop t ; inline M: string-reader stream-length underlying>> length ; M: string-reader dispose drop ; diff --git a/core/io/streams/byte-array/byte-array.factor b/core/io/streams/byte-array/byte-array.factor index 9c2ea7e42d..9872f3aa10 100644 --- a/core/io/streams/byte-array/byte-array.factor +++ b/core/io/streams/byte-array/byte-array.factor @@ -29,7 +29,7 @@ M: byte-reader stream-read-until sequence-read-until ; M: byte-reader dispose drop ; M: byte-reader stream-tell i>> ; -M: byte-reader stream-seek (stream-seek) ; +M: byte-reader stream-seek sequence-seek ; M: byte-reader stream-seekable? drop t ; inline M: byte-reader stream-length underlying>> length ; inline diff --git a/core/io/streams/sequence/sequence.factor b/core/io/streams/sequence/sequence.factor index 18dd75aa8a..cde37cad23 100644 --- a/core/io/streams/sequence/sequence.factor +++ b/core/io/streams/sequence/sequence.factor @@ -55,7 +55,7 @@ INSTANCE: growable output-stream INSTANCE: growable plain-writer ! Seeking -: (stream-seek) ( n seek-type stream -- ) +: sequence-seek ( n seek-type stream -- ) swap { { seek-absolute [ i<< ] } { seek-relative [ [ + ] change-i drop ] }