core: Better names for (each) etc

[factor.git] / core / io / streams / sequence / sequence.factor

diff --git a/core/io/streams/sequence/sequence.factor b/core/io/streams/sequence/sequence.factor
index 461df22cd90b43c20148c91851d2908d824353a2..8326e25a8ab9f56a88c32b920f9781dfd3fc5aba 100644 (file)
--- a/core/io/streams/sequence/sequence.factor
+++ b/core/io/streams/sequence/sequence.factor
@@ -21,7 +21,7 @@ SLOT: i
     [ underlying>> length ] [ i>> ] bi - rot min ; inline
 
 : <sequence-copy> ( dst n src-i src dst-i -- n copy )
-    [ ] curry 3curry dip <copy> ; inline
+    [ ] curry 3curry dip <copier> ; inline
 
 : sequence-copy-unsafe ( n buf stream offset -- count )
     [