use iota in replicate

db4
Doug Coleman 2009-08-22 20:59:36 -04:00
parent 679a7c9b01
commit 87a6e9cb31
1 changed files with 5 additions and 4 deletions

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,9 +424,10 @@ PRIVATE>
over map-as ; inline
: replicate ( seq quot -- newseq )
[ drop ] prepose map ; inline
[ iota ] dip [ drop ] prepose map ; inline
: replicate-as ( seq quot exemplar -- newseq )
[ iota ] 2dip
[ [ drop ] prepose ] dip map-as ; inline
: change-each ( seq quot -- )