io.streams.sequence: remove `5roll <copier>` word lol

diff --git a/core/io/streams/sequence/sequence.factor b/core/io/streams/sequence/sequence.factor
index 9829d068d05dfeb27fe95da52c78e14910da1568..e0e34ec3051704f1a9deb17bbf09ffdd1c6e46b4 100644 (file)
--- a/core/io/streams/sequence/sequence.factor
+++ b/core/io/streams/sequence/sequence.factor
@@ -20,14 +20,11 @@ SLOT: i
 : (sequence-read-length) ( n buf stream -- buf count )
     [ underlying>> length ] [ i>> ] bi - rot min ; inline
 
-: <sequence-copy> ( dst n src-i src dst-i -- n copy )
-    [ ] curry 3curry dip <copier> ; inline
-
 : sequence-copy-unsafe ( n buf stream offset -- count )
     [
         [ (sequence-read-length) ]
         [ [ dup pick + ] change-i underlying>> ] bi
-    ] dip [ <sequence-copy> (copy) drop ] 3curry keep ; inline
+    ] dip [ -roll swap rot dupd + seq-copy-loop drop ] 3curry keep ; inline
 
 : (sequence-read-unsafe) ( n buf stream -- count )
     [ integer>fixnum ]