revert replicate change again...the world is not ready

db4
Doug Coleman 2009-08-23 01:00:46 -04:00
parent 71652d2826
commit bea1e3732e
1 changed files with 0 additions and 2 deletions

View File

@ -424,11 +424,9 @@ PRIVATE>
over map-as ; inline
: replicate ( seq quot -- newseq )
[ iota ] dip
[ drop ] prepose map ; inline
: replicate-as ( seq quot exemplar -- newseq )
[ iota ] 2dip
[ [ drop ] prepose ] dip map-as ; inline
: change-each ( seq quot -- )