core: map-integers -> map-integers-as

[factor.git] / basis / sequences / unrolled / unrolled.factor

diff --git a/basis/sequences/unrolled/unrolled.factor b/basis/sequences/unrolled/unrolled.factor
index a6a408f7145a1f037cdd1bc5cb8e642ab57eba74..b748b9ffd2641c541ad94a8cb8e94912c119a281 100644 (file)
--- a/basis/sequences/unrolled/unrolled.factor
+++ b/basis/sequences/unrolled/unrolled.factor
@@ -24,7 +24,7 @@ PRIVATE>
 : unrolled-collect ( n quot: ( n -- value ) into -- )
     (unrolled-collect) unrolled-each-integer ; inline
 
-: unrolled-map-integers ( n quot: ( n -- value ) exemplar -- newseq )
+: unrolled-map-integers-as ( n quot: ( n -- value ) exemplar -- newseq )
     overd [ [ unrolled-collect ] keep ] new-like ; inline
 
 ERROR: unrolled-bounds-error
@@ -61,10 +61,10 @@ ERROR: unrolled-2bounds-error
     (unrolled-each-index) unrolled-each-integer ; inline
 
 : unrolled-map-as-unsafe ( seq len quot: ( x -- newx ) exemplar -- newseq )
-    [ (unrolled-each) ] dip unrolled-map-integers ; inline
+    [ (unrolled-each) ] dip unrolled-map-integers-as ; inline
 
 : unrolled-2map-as-unsafe ( xseq yseq len quot: ( x y -- newx ) exemplar -- newseq )
-    [ (unrolled-2each) ] dip unrolled-map-integers ; inline
+    [ (unrolled-2each) ] dip unrolled-map-integers-as ; inline
 
 : unrolled-map-unsafe ( seq len quot: ( x -- newx ) -- newseq )
     pick unrolled-map-as-unsafe ; inline