revert replicate change again...the world is not ready
parent
71652d2826
commit
bea1e3732e
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue