io.streams.sequence: rename (stream-seek) to sequence-seek.
parent
ee9ead89f8
commit
f243b31ddd
|
@ -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 ;
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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 ] }
|
||||
|
|
Loading…
Reference in New Issue