steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "use iota in replicate" 

This reverts commit 88d1f0d78a.
db4
Doug Coleman 2009-08-22 20:59:56 -04:00
parent 87a6e9cb31
commit 7b7f22fae2
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/sequences/sequences.factor
View File

@ -99,10 +99,10 @@ M: f like drop [ f ] when-empty ; inline
INSTANCE: f immutable-sequence
! Integers support the sequence protocol
! M: integer length ; inline
! M: integer nth-unsafe drop ; inline
M: integer length ; inline
M: integer nth-unsafe drop ; inline
! INSTANCE: integer immutable-sequence
INSTANCE: integer immutable-sequence
PRIVATE>
@ -424,10 +424,9 @@ PRIVATE>
over map-as ; inline
: replicate ( seq quot -- newseq )
[ iota ] dip [ drop ] prepose map ; inline
[ drop ] prepose map ; inline
: replicate-as ( seq quot exemplar -- newseq )
[ iota ] 2dip
[ [ drop ] prepose ] dip map-as ; inline
: change-each ( seq quot -- )