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

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

Doug Coleman 2009-08-23 01:00:46 -04:00
parent fed9a5bc74
commit 123f44d85b
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
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 -- )